i. 03Cd 



0200 00 

C202 00 

0204 00 

0206 00 

0206 00 

020A 00 

020C 00 

020E 00 

0210 00 

0212 00 



21-4 00 
0216 00 
0218 00 
021A 
021B 
021C 
021D 
021E 00 
22 



0221 

0222 00 
0224 00 
0226 00 
0226 00 
022A 00 
022C 00 
022E 00 
0230 00 
0232 00 
0234.00 
0236 00 



658009D0 
6D00O000 
658009D1 
60000004 
6500023C 
60000005 
6500C4B7 
6D000O0B 
650004CO 
6O00000C 



5C451000 

CC0009CE 

D6001FFF 

18C1 

72FF 

70FB 

6300 

44000496 

7018 



631C 

44000496 

C4000904 

44000486 

44000496 

C400Q9D5 

440004S6 

44000496 

C4000906 

44000486 

44000496 

C4000907 



00001 
.00002. 
00003 
C0004 
00005 
C0006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017. 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 



ABS 
ORG 



/200 



***• 

* 



************ ******* ************ ****** 

CHI MTCHK **** VI M2 **** 



20 MAR 78 - VINCE FLCRIAN 



♦NOTES: 



**** 
TOP 



3000 
3001 
3006 
3007 
301E 



XR3 = RETRY COUNT 
XR4 = ROUTINE NUMBER 
XR5 = STATUS WORD 1 
XR6 = STATUS WORD 2 

WAIT FOR MODE IN SWITCHES 
WAIT FOR XPORT TO REWIND 
WAIT FOR INTERRUPT (SELECT AN 
WAIT FOR INTERRUPT (COMMAND C 
ILSW ERROR - ILSW BIT IS IN A 



**** 

* 

**** 



********************************************** 

LDX II BR 

STX LI /0 

LDX II BR*1 

STX LI /4 

LDX LI INIT 

STX LI /5 

LDX LI INT3 

STX LI /B 
. LDX LI INT4 

STX LI /C . 
************ «[* *********************** 

FILL Wlit BUFFER WITH VAR DATA 

************************************* 



RLD L2 

_ LDD L 

LP1 STO L2 

RTE 

MDX 2 

MDX 

LOX 3 

BSI L 

MDX 
************* 

...* . THIS ROUTI 
*••******•*•* 



CONS 



-*-*- 



LDX 

BSI 

LD 

BSI 

BSI 

LD 

BSI 

BSI 

LO 

BSI 

BSI 

LO 



/1000 
DATA 
WBUF- 
1 

-1 
LP1 


TYPE 

INIT 

****** 

NE ENT 

****** 

28 

TYPE 

PASS 

CONV 

TYPE 

RETRY 

CONV 

TYPE 

FERRS 

CONV 

TYPE 

CERRS 



LD XR2 W/BUFFER SIZE 
GET THE OATA IN A AND 
1 
SHIFT THE DATA 
DROP THE WRITE B'JF AOORESS 
FILL THE WRITE BUFFER 

POINTER FOR MESSAGE 
GO TYPE MESSAGE 

**************************** 

ERED FROM CONSOLE INTERRUPT 

**************************** 

MESSAGE POINTER 



GET FLAGGED ERROR COUNT 

CONVERT FOR MESSAGE 

MSG 

GET READ COMPARE ERROR 



MTCHK001 
MTCHK002 
***********HTCHK0 03 
KTCHK0C4 
MTC^K005 
MTCHK006 
MTCHK007 
MTCHK008 
MTCHK009 
MTCHK010 
MTCHK011 
MTCHK012 
MTCHK013 
MTCHK014 
MTCHK015 
SENSE) MTCHK016 
HAIN) MTCHK017 
CC MTCHK018 

NTCHK019 
MTCHK020 
MTCHK021 
MTCHK022 
MTCHK023 
MTCHK024 
MTCHK025 
MTCHK026 
MTCHK027 
MTCHK028 
MTCHK029 
MTCHK030 
***********HTCHK031 
MTCHK032 
********#**MTCHK033 
MTCHK034 
MTCHK035 
MTCHK036 
MTCHK037 
MTCHK038 
MTCHK039 
MTCHK04Q 
MTCHK041 
MTCHK042 
*****MTCHK043 
MTCHK044 
*****MTCHK045 
MTCHK046 
MTCHK047 
MTCHK048 
MTCHK049 
MTCHK050 
MTCHK051 
MTCHK052 
MTCHK053 
MTCHK054 
MTCHK055 
MTCHK056 
C0UNTMTCHK057" 
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0238 00 
0?3A 00 
023C 
0230 00 
023F 00 
0241 00 
0243 
0245 



0001 HRS 



00 

0246 00 



0248 

0249 00 
024B 00 
024D 00 
024F 00 
0251 00 
0253 00 
0255 00 
0257 
0258 








0259 00 



44000486 

44000496 

6100 

6D0009D4 

60000905 

60000906 

6D0009O7 

6301 

44000496 

30 00 

44000496 

0C0009CC 

C40009DF 

5C740004 

D40009D2 

4C180258 

44000496 

7003 

6304 

44000496 



025B 
025C 
025E 
025F 
0261 
0263 
0264 
0266 
0267 
0269 
026B 
260 
026E 
0270 
0272 
0273 



61 
00 C4 
59 
00 04 
00 QC 
30 
00 C4 
10 
00 44 
00 0C 
00 5C 
59 
00 D4 
00 4C 
71 
70 



00 

0009D2 

77 

0009E6 

0009C4 

01 

0Q0AA5 

05 

2802DB 

0009C2 

750003 

7S 

0009D3 

180276 

01 

E8 



i'<- 



0274 00 
0276 00 
0278 00 
027A 00 
027C 00 
027E 00 
0280 00 
0282 00 
0284 00 



74010903 
C40009D3 
5C740003 
D4 0009D3 
EC0009O2 
O40009EO 
670009EC 
6F0009BC 
OC0009BC 



00058 

00059 

00060 
00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 ... 

00069 

00070 

00071 ... 

00072 

00073 

00 074_._ 

00075 

00076 

000 77 

00078 

00079 

00080 . 

00081 

00082 

00083 _ 

00084 

00085 

00086 

00087 

00088 

00089 _, 

00090 

00091 

00092 

00093 

00094 

00055 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

00100 1 

Q0110„ 

00111 



I NIT 



BSI 
BSI 
LOX 
STX 
STX 
STX 
STX 
LOX 
BSI 



L CONV 
L TYPE 

1 
LI PASS 
LI RETRY 
LI FERRS 
LI CERRS 

3 1 
L TYPE 



******************* 

WAIT 

BSI 

XIO 

LD 

RAND 

STO 

BZ 

BSI 

MDX 
THS64 LOX 

BSI 
*********** 
* REWIND 
*********** 



ZERO COUNTER 
ZERO COUNTER 

ZERO FLAGGED ERROR COUNT 
ZERO COMPARE ERROR COUNT 
SET DISPLACEMENT POINTER 
TYPE MESSAGE 1 
****************************** 
WAIT FOR MODE IN SWITCHES 
TYPE MSG 2 
READ SWITCHES 



L TYPE 
L RDSW 
L SWIT 
LA /0004 
L MODE 

TMSG4 
L TYPE 
REWD- 

3 4 
L TYPE 
******** 

ALL XPORTS ANO HALT CONTROLLER * 
*********************************** 



MASK ALL BUT MODE 



TYPE MSG 3 (PE MODE) 
GO REWIND TRANSPORTS 
POINTER FOR MSG 4 
GO TYPE MSG 4 

**************************** 



LDX 

REWD LD 
ROR 
STO 
XIO 
WAIT 
LD 
SLA 
BSI 
XIO 
RLD 
RE OR 
STO 
BZ 
MDX 
MDX 

******** **• 





MODE 

1 

REW+1 

READY 

1 

SENSE 

5 

PRGIN 

HALT 



L 
L 
LA /3 

A I 
L XPORT 
CKDR*. 
1 +1 
REWD 
******** 



PUT IN XPORT NUMBER 

REWIND XPORT 

WAIT FOR SELECT INTERRUPT 
♦1 GET STATUS WORD 2 

SEE IF REWINDING 
,*Z IF NEG. WAIT FOR PROG INT 

HALT CONTROLLER 

SEE IF ALL XPORTS DONE 



IF DONEt GO CHK XPORTS 
INCREMENT XPORT NUMBER 
GO DO THE REST 
****************************** 



CHECK FOR NEXT AVAILABLE TAPE DRIVE 



'************************************************* 



CKOR 



MDM 
LO 



XPORTt*l 

XPORT NOW LIMIT IT 



RAND LA /3 



TO THRU 3 



STO L XPORT PUT IT BACK 

OR L MODE NOW COMBINE IT AND 

STO L SELCT+1 PUT IT IN COMMAND WORD 

LDX L3 SELCT SELECT COMMANO 

STX L3 START 

XIO L START NOW 00 CHECK IT 



MTCHK058 

MTCHK059 

MTCHK060 

MTCHK061 

MTCHK062 

MTCHK063 

MTCHK064 

MTCHK065 

MTCHK066 

KTCHK067 

MTCHK068 

MTCHK069 

MTCHK070 

MTCHK071 

MTCHK072 

MTCHK073 

MTCHK074 

MTCHK075 

MTCHK076 

MTCHK077 

MTCHK078 

MTCHK079 

MTCHK08D 

MTCHK081 

MTCHK082 

MTCHK083 

MTCHK084 

MTCHK085 

MTCHK086 

MTCHK087 

MTCHK088 

MTCHK089 

MTCHK090 

MTCHK091 

MTCHK092 

MTCHK093 

MTCHK094 

MTCHK095 

MTCHK096 

MTCHK097 

MTCHK098 

MTCHK099 

MTCHK100 

MTCHK101 

MTCHK102 

MTCHK103 

MTCHK104 

MTCHK105 

MTCHK106 

MTCHK107 

MTCHK108 

MTCHK109 

MTCHK110 

MTCHK111 



^1 
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0001 HRS 



0286 
0287 

0289 



028B 
028C 
028E 
0290 
0292 
0294 
0295 
0297 
0299 
029A 
029C 
0290 



029E 
02A0 
02A2 



3006 

00 C4000AA5 

00 4C280274 



61 
00 C4 
00 4C 
00 5C 
00 EC 
5B 
00 C5 
00 5C 
58 
00 05 



71 
70 



18 

000902 

180292 

771004 

000903 

95 

00053A 

74EFF8 

F7 

00053A 

FF 

F7 



00 6D0009D8 
00 660009F0 
00 6E0009BC 



00112 

00113., 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 



WAIT 6 WAIT FOR INTERRUPT 

LD L SENSED 

BN CKDR IF NOT AVAIL GO CHK NEXT 

*************************************************** 
* SET UP EXPECTED WORD 2 WITH MOOf. AND XPORT NUMBER 

*************************************************** 



LDX 1 24 
LD L MODE 
BZ **2 
ROR LA /1004 
OR L XPORT 
RCPY 4 A 

LP3 LD LI CWD2- 
RAND LA /EFF8 
ROR A 4 
STO LI CU02- 
HDX 1 -1 
MOX LP3 

******************* 
...*.. SET UP FOR 

******************* 
STX LI RTN 
LDX L2 RTNO 
STX L2 START 



NUMBER OF ROUTINES 

IF ZERO, DON'T PUT IN PE BI 

PUT IN PE BITS 

PUT IN XPORT NUMBER 

HOLD IN XR4 
1 GET STATUS CHECK WORD 2 

MASK OUT OLD MODE AND DRIVE 

PUT IN NEW MOOE AND DRIVE 
1 PUT IT BACK 

DROP COUNTER/POINTER 

******************************** 
ROUTINE 
******************************** 

ZERO ROUTINE NUMBER 

GET ADR OF RTN 



MTCHK112 
MTCHK113 
KTCHK114 

*MTCHK115 
MTCHK116 

♦MTCHK117 
MTCHK118 
MTCHK119 

TMTCHK120 
MTCHK121 
MTCHK122 
MTCHK123 
MTCHK124 
MTCHK125 
MTCHK126 
MTCHK127 
MTCHK128 
MTCHK129 

*MTCKK130 
MTCHK131 

*KTCHK132 
MTCHK133 
MTCHK134 
MTCHK135 



i » 
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02A4 

02A5 

02A7 

Q2A9 

02AB 

02AD 

02AE 

02B0 

02B1 

02B2 

02B3 

02B5 

0287 

02B9 

02BA 

02BB 

02BO 

02BE 

02BF 

02C1 

02C3 

Q2C4 

02C6 

02C8 

02C9 



5B 
00 D4 
00 04 
00 04 
00 OC 
30 
00 CC 
5B 
18 
5B 
00 C4 
00 5C 
00 04 
53 
58 
00 66 
5A 
5A 
00 44 
00 5C 
5A 
00 44 
00 5C 
5A 
00 44 



F3 

000AA4 

O0OAA5 

0009E0 

0009BC 

07 

000AA4 

B5 

DO 

D5 

0OOAA9 

7400FF 

000905 

E5 

21 

8009D8 

15 

75 

1802DB 

750007 

76 

1802DB 

75000C 

76 

180208 



02C8 

02CD 
02CE 
02D0 
02D2 
02D3 
0205 
0207 
0209 



00 C6000523 
59F6 
00 D40009E2 
00 C600053B 
5AF6 
00 D40009E3 
00 EC0009E2 
00 4C20038D 
00 4E80050B 



020B 
020C 
02OE 
02E0 
02E2 
02E4 





00 

00 

00 

00 

00 



0000 

C40009EO 
F400090E 
4C20020C 

D40009E0 
4C80020B 



■it 



00137 
00138 . 
00139 
00140 

0141 

00142 

00143 

00144 .. . 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 _ 

00154 

00155 

00156 ... 

00157 

00158 

00159 __ 

00160 

00161 

00162 _ 

00163 

00164 

00165 

00166 

00167 

00168 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180_ 

00181 
00182 

00183 . 
00184 
00185 
00186 , 
00187 
0018? t 
00189 
00190 



***************************************** 

* 

* XEQ HTA SUBROUTINE 



************** 



*************************** 



AGAIN RSUB 
STO 



A 

SENSE 

SENSE 

ILSW3 

START 

7 

SENSE 

A 

16 

A 

SENSE 

/OOFF 

RETRY 

A 



+ 1 



STO 

STO 

XIO 

WAIT 

LOO L 

RCPY 5 

RTE 

RCPY 6 

LO L 

RAND LA 

STO L 

RCPY 3 

RINC 1 

LOX 12 RTN 

RCPY 4 2 

RCPY A 2 

BSI L PRGIN. ♦• 

RLD LA 7 

REOR A 2 

BSI L PRGIN.*' 

RLD LA 12 

REOR A 2 

BSI L PRGIN 
******************* 
* CHECK STATUS 
***** 



ZERO ACC 

AND STATUS WORD 1 

AND STATUS WORD 2 
2ER0 ILSU 

GIVE HTA XIO START 
WAIT FOR INTERRUPT 
GET STATUS WORDS 1 AND 2 
PUT WORD 1 IN XR5 
PUT WORD ?. IN XR6 

GET RETRYS 

SAVE ONLY THE RETRYS 

DISPLAY THE RETRY COUNT 
INCREMENT THE RECORD COUNT 
GET ROUTINE NUMBER IN POIN 
DISPLAY ROUTINE NUMBER IN 

GO WAIT FOR PROG INT 
SEE IF RTN 7 



SEE IF RTN 12 



************** 



**************************** 
WORDS FOR ERRORS ****** 
**************************** 



GO 



LO 

REOR 

STO 

LD 

REOR 

STO 

OR 

BNZ 

BSC 



********** 
"*"•' WAIT F 

********** 

PRGIN OC 
LD 
EOR 
BNZ 
STO 
BSC 

********** 



L2 CWD1 

A 5 
L BAD1 
L2 CW02 

A 6 
L BAD2 
L BAD1 

FLGER 
12 ROUTN 
************ 
OR PROG INTE 
************ 
*-* 
L ILSW3 
L H0200 

PRGIN*1 
I ILSW3 
I PRGIN 
*•*****•*•*• 



GET EXPECTED STATUS WORD 
COMPARE WITH STATUS WORD 
SAVE IT 

GET EXPECTED STATUS WORD 
COMPARE WITH STATUS WORD 
BAO BITS WILL BE USED BY 
TO FLAG BAD BITS IN MESS 
IF NOT 0» GO TO FLAGGED 
GO TO CORRECT ROUTINE 
************************** 
RRUPT BEFORE CHECK STATUS 
************************** 
ENTRY POINT 
GET ILSW 

PROG INT ILSW BIT 6 
WAIT FOR PROG INT 
ZERO ILSW 
GO BACK TO CALLER 
************************** 



. ADVANCE ROUTINE AND SET ALT COMMAND ADDRESS 



MTCHK137 
MTCHK138 
MTCHK139 
MTCHK140 
MTCHK141 
MTCHK142 
MTCHK143 
MTCHK144 
MTCHK145 
MTCHK146 
MTCHK147 
MTCHK148 
MTCHK149 
MTCHK150 
MTCHK151 
MTCHK152 
MTCHK153 
MTCHK154 
MTCHK155 
MTCHK156 
MTCHK157 
TEHTCHK158 
XRMTCHK159 
MTCHK160 
MTCHK161 
MTCHK162 
MTCHK163 
MTCHK164 
MTCHK165 
MTCHK166 
MTCHK167 
KTCHK168 
MTCHK169 
MTCHK170 
1 MTCKK171 

1 MTCHK172 
MTCHK173 

2 MTCHK174 
2 MTCHK175 
FLGMTCHK176 

AGE MTCHK177 

ERR0MTCHK178 

MTCHK179 

*«**HTCHK180 

WOS MTCHK181 

****MTCHK182 

MTCHK183' 

MTCHK184 

MTCHK185 

MTCHK186 

MTCHK187 

MTCHK188 

•***HTCHK189 

MTCHK190 
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0001 HRS 



I l- 



00191 
02E6 00 74Q109D8 00192 .... 
02E8 00 66800908 00193 
02EA 5A15 00194 
02EB 00 C60004F3 00195 ..__ 
02EO 00 D40009BC 00196 
02EF 6100 00197 
02F0 00 4C0002A4 00198 .. 
00199 
00200 
00201 
02F2 00 4C0002E6 00202 
02F4 00 4C0002E6 00203 
02F6 00 4C0002E6 00204 
02F8 00 4C0002E6 00205 
02FA 00 4C0002E6 00206 
02FC 00 4C0002E6 00207 ... 
02FE 00 4C0002E6 00208 
0300 00 4C0C02E6 00209 
0302 00 4C0002E6 00210 . 
0304 00 5C750004 00211 

0306 5976 00212 

0307 00 4C2002A4 00213 
0309 00 4C0002E6 00214 
030B 00 5C750«00 00215 
03QO 00 O40OO9D9 00216 
030F 00 4C0002E6 00217 
0311 00 440003F6 00218 
0313 00 5C750001 00219 ... 

0315 5976 00220 

0316 00 4C20031B 00221 
0318 00 5C7507FE 00222. 
031A 7002 00223 
0318 00 5C750800 00224 
0310 00 D4000A31 00225 .. 
031F ie01 00226 
0320 00 04000909 00227 
0322 00 5C750003 00228. 

0324 5976 00229 

0325 00 4C2002A4 00230 
0327 00 5C750100 00231 . 

0329 00 04000909 00232 
032B 00 4C0002E6 00233 
032D 00 440003F8 00234 
032F 00 4C0002E6 00235 
0331 00 C4000AA8 00236 
0333 00 5C7607EE 00237 

~ 0335 00 O40009E4 00238 
0337 00 4C20038D 00239 
0339 00 4C0002E6 00240 

~ 033B 00 4C0002E6 00241 

0330 00 4C0Q02E6 00243 
033F 00 C4000A82 00243 

0341 1801 00244 



*********** 
AOVAN MOM 
LOX 
RCPY 

„ ID 

STO 
LOX 
B 



*********** 
* SPECIAL 
*********** 



*********** 
L RTN»*1 
12 RTN 

4 2 
L2 RTNAO 
L START 

1 
L AGAIN 
*********** 

SUBROUTINE 
*********** 



DISPLAY ROUTINE NUM3ER 
GET NXT RTN ALT CHO ADR 
AND PUT IT THERE 
ZERO RECORD COUNT 



RUTO 
RUT1 
RUT2 
RUT3 
RUT4 
RUT5 
RUT6 
RUT7 
RUT8 
RUT9 



RUTA 



RUTB 



RUTC 
'RUTD 

RUTE 



_RUTF 
RUT 10 
I RUTH 

RUT12 



B 

B 

B 

B 

B 

B 

B 

B 

B 

RLD 

REOR 

BNZ 

B 

RLD 

STO 

B 

BSI 

RLD 

REOR 

3NZ 

RLD 

MDX 

RLD 

STO 

SRA 

STO 

RLD 

REOR 

BNZ 

RLD 

STO 

B 

BSI 

8 

LD 

REOR 

STO 

BNZ 

B 

8 

B 

LD 

SRA 



L 
L 
L 
L 
L 
L 
L 
L 
L 

LA 
A 
L 
L 



AOVAN 

ADVAN 

AOVAN 

ADVAN 

AOVAN 

ADVAN 

AOVAN 

AOVAN 

ADVAN 

4 

1 

AGAIN 

ADVAN 



LA MOO 



L 
L 
L 

LA 
A 



WORDS 

AOVAN 

RCOMP 

1 

1 

* + 3 
LA /07FE 

**2 
LA /0800 
L RTNB*1 

1 

WORDS 

3 

1 

AGAIN 



L 

LA 
A 

L 



LA /100 



WORDS 
ADVAN 
RCOMP 
AOVAN 
SENSE*4 



**************************** **HTCHK 191 
INCREMENT ROUTINE 2I5H51" 

KTCHK194 
MTCHIM95 
MTCHK196 
MTCHK197 
MTCHK198 

****************************** MTCHK1 " 
S TO CHECK FOR DATA ERRORS MTCHK200 

****************************** HTCHK201 ■- 

MTCHK202 

MTCHK203 

MTCHK204 

MTCHK205 

MTCHK206 

MTCHK207 

MTCHK208 

MTCHK209 

MTCHK210 

MTCHK211 

MTCHK212 

MTCHK213 

MTCHK214 

MTCHK215 

MTCHK216 

MTCHK217 

GO COMPARE WOROS READ FOR ERMTCHK218 

MTCHK219 
MTCHK220 
MTCHK221 
MTCHK222 
MTCHK223 
MTCHK224 
MTCHK225 
MTCHK226 
MTCHK227 
MTCHK228 
MTCHK229 
MTCHK230 

SET UP FOR RTN Ot READ C0MPAMTCHK231 

MTCHK232 



LA /07EE 



L 
L 
L 
L 
L 
L 



BAD5 

FLGER 

ADVAN 

ADVAN 

AOVAN 

RTN13*1 

I 



TO LOOP 4 TIMES 
SEE IF 4TH EDIT 



GET NEXT RTN WORD COUNT 



CHANGE BYTE COUNT 

SET BYTE COUNT TO /800 



6ET ACTUAL BYTE COUNT 



MTCHK233 
MTCHK234 
MTCHK235 
MTCHK236 
MTCHK237 
MTCHK238 
MTCHK239 
MTCHK240 
MTCHK241 
MTCHK242 
MTCHK243 
MTCHK244 



1 
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......... 










0342 00 D40009D9 00245 


STO L 


WORDS 




MTCHK245 




0344 00 4C0002E6 00246 


8 L 


ADVAN 




MTCHK246 




■] 0346 00 440003F8 00247 


RUT13 BSI L 


RCOMP 




MTCHK247 




0348 00 C400090C 00248 


LD L 


TWO 




MTCHK248 




034A 00 D4000A87 00249 


STO L 


RTN14*1 




MTCHK249 




034C 00 O4000ASC 00250 


STO L 


RTN14+6 




MTCHK250 




034E 1801 00251 


SRA 


1 




MTCHK251 




034F 00 D40009D9 00252 


STO L 


WORDS 




MTCHK252 




i 0351 00 4C0002E6 00253 


8 L 


ADVAN 




MTCHK253 




j 0353 00 440003F8 00254 


RUT14 BSI L 


RCOMP 




MTCHK254 




0355 00 66800A87 00255 


LOX 12 


RTN14+1 


GET BYTE COUNT 


MTCHK255 


.. ,„„ 


0357 00 5C752000 00256 


RLO LA 


/2000 




MTCHK256 




0359 5A76 00257 


REOR A 


2 


SEE IF MAX BYTE COUNT <BUF 


SMTCHK257 




035A 00 4C1802E6 00258 


. . BZ L 


ADVAN 


EXIT IF MAX </2E0 RECORDS) 


MTCHK258 




035C 5A75 00259 


RCPY A 


2 




MTCHK259 




035D 00 B40009DE 00260 


CMP L 


H0200 




MTCHK260 




035F 7006 . 00261 


MDX 


AD10 


IF GT 


MTCHK261 




0360 7001 00262 


KOX 


AD2 


IF LT 


MTCHK262 




0361 7004 00263 


PDX 


AD10 


IF EQ 


MTCHK263 




0362 5A75 00264 


AD2 RCPY A 


2 


GET BYTE COUNT BACK 


MTCHK264 




0363 00 8400090C 00265 


A L 


TWO 




MTCHK265 




i 0365 7002 00266 


B 


AD10*2 




MTCHK266 




! 0366 00 840009DD 00267 


A010 A L 


H0010 




MTCHK267 




0368 00 D4000A87 00268 


STO L 


RTN14*1 




MTCHK268 




036A 00 D4000A8C 00269 


STO L 


RTN14*6 




MTCHK269 




036C 1801 00270 


SRA 


1 




MTCHK270 




| '" 0360 00 O40009D9 00271 


STO L 


WORDS 




MTCHKJ/1 




036F 00 4C0002A4 00272 


B L 


AGAIN 




MTCHK272 




0371 00 C40009OA 00273 


RUT15 LD L 


RECDS 




MTCHK273 




0373 5976 00274 


REOR A 


1 




MTCHK274 




0374 00 4C2002A4 00275 


BNZ L 


AGAIN 




MTCHK275 




0376 00 C4000A98 00276 


LD L 


RTN16-H 


SET UP ,;.:..' 


MTCHK276 




■[ 0378 1801 00277 


SRA 


1 




MTCHK277 




0379 00 D40O09O9 00278 


STO L 


WORDS 




MTCHK278 




0373 00 4C0002E6 00279 


B L 


ADVAN 




MTCHK279 




0370 00 440003F8 00280 


RUT16 BSI L 


RCOMP 




MTCHK280 




037F 00 C40009DA 00281 


LD L 


RECDS 




MTCHK281 




0381 5976 00282 


REOR A 


1 




MTCHK282 






0382 00 4C2002A4 00283 


BNZ L 


AGAIN 




MTCHK283 






0384 00 4C0002E6 00284 


B L 


ADVJs?! 




MTCHK284 






0386 00 74010904 00285 


RUT17 MOM L 


PASS»*1 


INCREMENT PASS COUNT 


MTCHK285 






0388 1000 00286 


NOP 






MTCHK286 ". " 




0389 5AF5 00287 


RCPY A 


6 




MTCHK287 




- 


038A 1005 00288 


SLA 


5 


SEE IF REWINDING 


MTCHK288 




« 


038B 00 4C280274 00289 


8N 


CKDR 


IF SOt GO CHECK NEXT XPORT 


MTCHK289 






00290 


*********************** *******«*********************MTCHK290 




.< 


00291 


• 






••MTCHK291 




■*» 


00292 


* " FLAGGED ERROR 




**MTCHK292 






00293 


* 






**MTCHK293 




■;, 


00294 


************************************* ***************MTCHK294 






0380 0* 6958 00295 


FLGER STX i 


REGF+1 


SAVE REGS 


MTCHK295 






038E 6A59 00296i 


1 STX 2 


REGF*3 




MTCHK296 




4 


038F 6B5A 00297 
0390 00 74010906 00298 


STX 3 


REGF*5 
FERRS»»X 


INCREMENT FLAG ERR COUNT 


MTCHK297 
MTCHK298 




MDM L 





& 

© 

© 
© 

O 
© 
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0001 HRS 



0392 1000 00299 

0393 6311 00300 - 

0394 00 41000196 00301 
0396 00 C40009D8 00302 

0398 00 44 000486 00303 

039A 00 44000496 00304 
039C 6201 00305 

039D 6104 00306 

039E 59F5 00307 
039F 00 44000456 00308 
03A1 00 44000496 00309.. 
03A3 6201 00310 
03A4 6104 00311 
03A5 5AF5 00312 
03A6 00 44000456 00313 
03A8 00 44000496 00314 
03AA 00 668009D8 00315 .... 
03AC 00 C6000523 00316 
03AE 6201 00317 
03AF 6104 00318 . 
0380 00 44000456 00319 
03B2 00 44000496 00320 
03B4 00 668009D8 00321 
0366 00 C600053B 00322 
03B8 6201 00323 
03B9 6104 00324 
03BA 00 44000456 00325 
03BC 00 44000496 00326 
03BE 00 C40O09E2 00327 
03CO 6201 00328 
03C1 6104 00329 
03C2 00 4400046E 00330 
03C4 00 44000496 00331 
03C6 00 C40009E3 00332 
03C8 6201 00333 

" 03C9 6104 00334 
03CA 00 4400046E 00335 
03CC 00 44000496 00336 
03CE 00 C40009E4 00337 
03DO 00 4C1803E2 00338 
03D2 00 44000496 00339 
" 03D4 00 C4000AA8 00340 
03D6 00 44000486 00341 
0308 00 44000496 00342 

"" 03DA 00 5C7507EE 00343 
03DC 00 44000486 00344 
030E 00 44000496 00345 
03E0 00 600009E4 00346 
03E2 6307 00347 
03E3 00 44000496 00348 

■ ' 03E5 00 5C250000 
03E7 00 5C450000 
03E9 00 5C650000 
03EB 00 C4 0009D8 



00349 
00350 
00351. 
00352 



NOP 
-„■ LDX . 
BSI 
LO 
BSI 
BSI 
LDX 
LOX 
RCPY 
BSI 
BSI 
LDX 
LDX 
RCPY 
BSI 
BSI 
LOX 
LD 
LDX 
LDX 
BSI 
BSI 
LDX 
LD 
LDX 
LDX 
BSI 
BSI 
LD 
LDX 
LDX 
BSI 
BSI 
LD 
LDX 

LDX 

BSI 
BSI 
LD 
BZ 
BSI 
LD 
BSI 
BSI 
RLD 
BSI 
BSI 
STX 
EMSG LDX 
BSI 
RLO 
RLD 
RLD 
LO 



RE6F 



3 17 MSG 1 
L TYPE 
L RTN 
L CONV 
L TYPE 

2 1 

14 

A 5 
L BITS 
L TYPE 

2 1 

1 4 
A 6 

L BITS 
L TYPE 
12 RTN 
L2 CWD1 

2 1 

1 4 

L BITS 
L TYPE 
12 RTN 
L2 CU02 

2 1 

1 4 

L BITS 
L TYPE 
L BAD1 

2 1 
14 

L FLAGS 
L TYPE 
L BAD2 
2 1 
I 4 
L FLAGS 
L TYPE 
L BAD5 
EMSG 
L TYPE 

L SENSE** 

L CONV 

L TYPE 

LA /07EE 

L CONV 

L TYPE 

LI BADS 
3 7 

L TYPE 

LI *-« 

L2 *-* 

L3 *-• 

"L RTN 



JUST IN CASE 
7 *** FLAGGED ERROR *** 

GET ROUT NO. 



GET "WAS" WORD 1 



GET "WAS" WORD 2 



GET "SHOULD BE" WORD 1 



GET "SHOULD BE WORD 2 



GET BAD BITS FROM STATUS 



MSG 23 



MSG 24 



MSfi 25 

GET 'WAS* WORD 5 

MSG 26 
•SHOULD BE* WORD 5 

MSG 27 

ZERO WORD 5 FLAG 

MSG 7 

RESTORE INDEX REGS 



MTCHK299 
MTCHK300 . 
MTCHK301 
MTCHK302 
MTCHK303 
MTCHK3Q4 
MTCHK305 
MTCHK306 
MTCHK307 
MTCHK308 
MTCHK309 
MTCHK310 
HTCHK311 
MTCHK312 
MTCHK313 
MTCHK314 
MTCHK315 
MTCHK316 
MTCHK317 
MTCHK318 
MTCHK319 
MTCHK320 
MTCHK321 
MTCHK322 
MTCHK323 
MTCHK324 
MTCHK325 
MTCHK326 
WD MTCHK327 
MTCHK328 
MTCHK329 
MTCHK330 
MTCHK331 
MTCHK332 
MTCHK333 
MTCHK334 
MTCHK335 
MTCHK336 
MTCHK337 
MTCHK338 
MTCHK339 
MTCHK340 
MTCHK341 
MTCHK342 
MTCHK343 
MTCHK344 
MTCHK345 
MTCHK346 
MTCHK347 
MTCHK348 
MTCHK349 
MTCHK350 
MTCHK351 
HTCHK352 



t I 
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03ED 5895 00353 RCPY 4 A DISPLAY ROUTINE NUMBER MTCHK353 

03EE 00 OC0009CC 00354 OPR XIO L ROSU READ SWITCHES MTCHK354 

03F0 00 C40009DF 00355 LD L SUIT HTCHK355 



| 03F2 00 4C2802E6 00356 BN ADVAN IF BIT 0. BYPASS ROUTINE 

03F4 1001 00357 SLA .... .1 IF BIT 1 IS ON, CONTINUE MTeHK357 

03F5 00 4C2802D9 00358 BN GO MTCHK358 



o 

© 


9 



i 

@ 

\ 



i ■< — 



© 



• * 
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0001 HRS 



03F8 
03F9 00 
03FB 00 
C3F0 00 
03FF 
0400 00 
0402 
0403 
0405 
0406 
0407 00 

0409 
040A 00 
040C 
0400 
040E 00 

0410 

0411 00 



00 







0413 

0414 
. 0415 

0416 00 
0418 00 
041A 
041B 00 
0410 00 
041F 
0420 
0421 
0423 00 
0425 00 
0427 00 

0429 00 
042B 
042C 00 
042E 
042F 00 
0431 00 

.0433 00 
0435 00 
0437 00 
0439 00 
043B 00 

0430 00 
043F 00 
0441 00 





00 



00 

668009D9 

D40009E1 

C600CFFF 

5395 

C6001FFF 

58F6 

4C200413 

72FF 

70F6 

66800909 

53F3 

D6000FFF 

72FF 

70FC 

C40009D8 

5B95 

4C8003F8 



6930 

6A31 

6B32 

C40009E1 

4C18042B 

5BF3 

D40009E1 

74010907 

1000 

6305 

44000496 

C400O9D8 

44000486 

44000496 

44000496 

6308 

44000496 

C017 

44000486 

44000496 

66800446 

C6000FFF 

44 000486 

44 000496 

66800446 

C6001FFF 

44 000486 

44000496 



00361 

00362 

00363 

00364 

00365 

00366 

00367 

00368 

00369 

00370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 

00378 

00379 

00380 

00381 

00382 

00383 

00384 

00385 

00386 

00387 

00388 

00389 

00390 

00391 

00392 

00393 

00394 

00395 

00396 

00397 

00398_ 

00399 

00400 

00401_ 

00402 

00403 

00404_ 

00405 

00406 

00407 

00408 

00409 

00410 

00411 

00412 

00413_ 

00414 



******************* **************** *************** 

* COMPARE THE READ BUFFER W/WRITE BUFFER 

***********************, 



**************************** 
RCOHP DC *-* ENTRY POINT 
LOX 12 WORDS GET AMOUNT TO CHECK 

STO L FIRST SET FIRST COMP FLAG POSITI 

LD L2 RBUF-1 GET THE WORD READ ANO 
RCPY 4 A SAVE IT IN XR4 

LD L2 WBUF-1 GET THE SHOULD BE WORD AND 

REOR A 4 COMPARE THEM 

- __..BNZ L ERROR BRANCH IF ERROR 

NXT MOX 2 -1 DROP COUNTER 

MOX RC0MP*5 GO COMPARE NEXT WORD 
LDX 12 WORDS GET AMOUNT TO CLEAR 

RSUB A A CLEAR ACC 

STO L2 RBUF-1 CLEAR THE READ BUFFER 

_...- «DX 2 -1 DROP THE COUNTER 

MDX *-4 LOOP TIL DONE 

LD L RTN 

RCPY 4 A DISPLAY ROUTINE NUMBER 

BSC I RCOMP GO BACK TO CALLER 



***** 

* 

***** 

ERROR 



*•*******••***•**• ***********************#*,»* 
DATA COMPARE ERROR ON READ :" 



********* 



NO 



i • 



STX 

STX 

STX 

LO 

BZ 

RSUB 

STO 

MOM 

NOP 

LDX 

BSI 

LO 

BSI 

BSI 

BSI 

LDX 

BSI 

LO 

BSI 

BSI 

LDX 

LD 

BSI 

BSI 

LDX 

LD 

BSI_ 

BSI 



L 

L 

12 

L2 

L 

L 

12 

L2 

L 

L 



********* 

REG+1 

REG+3 

REG+5 

FIRST 

NO 

A 

FIRST 

CERRS.+l 

5 

TYPE 

RTN 

CONV 

TYPE 

TYPE 

8 

TYPE 

REG*3 

CONV 

TYPE 

REG+3 

RBUF-1 

CONV 

TYPE 

REG»3 """ 

WBUF-1 

CONV 

TYPE " 



**************************** 
SAVE XRlt 2. 3 



SEE IF FIRST COMP ERROR THI 

CLEAR FLAG TO ZERO 

INCREMENT COMP ERR COUNT 
JUST IN CASE OF OVERFLOW 
POINTER FOR MESSAGE 5 

GET ROUTINE NUMBER 

MSG 6 

MESSAGE 7 

SET MSG POINTER 

MESSAGE 8 

GET WORD NUMBER 

MSG 9 

RESTORE DATA WORD POINTER 

GET BAD WORD 

MSG 10 

RESTORE DATA WORD POINTER 

GET "SHOULD BE" WORD 

MSG U 



**MTCHK361 
♦MTCHK362 
**MTCHK363 
MTCHK.364 
MTCHK365 
VEMTCHK366 
MTCHK367 
MTCHK368 
MTCHK369 
MTCHK370 
MTCHK371 
MTCHK372 
MTCHK373 
MTCHK374 
MTCHK375 
MTCHK376 
MTCHK377 
MTCHK378 
MTCHK379 
MTCHK380 
MTCHK381 
•MTCHK382 
MTCHK383 
MTCHK384 
MTCHK385 
*MTCHK386 
MTCHK387 
MTCHK388 
MTCHK389 
SMTCHK390 
MTCHK391 
MTCHK392 
MTCHK393 
MTCHK394 
MTCHK395 
MTCHK396 
MTCHK397 
MTCHK398 
MTCHK399 
MTCHK400 
MTCHK401 
MTCHK402 '" 
MTCHK403 
MTCHK404 
MTCHK405 
MTCHK406 
MTCHK407 
MTCHK408 
MTCHK409 
MTCHK410 
MTCHK411 
MTCHK412 
MTCHK413 
MTCHK414 
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0443 00 


5C250000 


00415 


REG 


RLD 


LI 


*-* 


RESTORE INDEX REGS 


MTCHK4I5 




0445 00 


5C450000 


00416 




RLD 


L2 


*<•* 




MTCHK416 




0447 00 


5C650000 


00417 




RLO 


L3 


*••* 




MTCHK417 




0449 00 


C40009O8 


00418 




LD 


L 


RTN 




MTCHK418 




! 0448 


5895 


00419 ... 




RCPY 


4 


A 


DISPLAY ROUTINE NUMBER 


MTCHK419 


... ....... ... . _.. 


044C 00 


OC0009CC 


00420 


"~ BYPAS 


XIO 


L 


ROSW 


READ SWITCHES 


MTCHK420 




044E 00 


C400090F 


00421 




LO 


L 


SUIT 




MTCHK421 




'._. 450 


4C280407 


00422 




BN 




NXT+2 


BYPASS COMPARE IF BIT OR 


MTCHK422 




i 0452 


1001 


00423 




SLA 




1 


CHK BIT 1 


MTCHK423 




0453 00 


4C280405 


00424 




BN 




NXT 


GO COMPARE NEXT WORD IF BIT 


MTCHK424 




:...__. 0455 


70 FS 


00425 .; 




MDX 




BYPAS 


OR GO WAIT FOR OPERATOR 


MTCHK425 








00426 


******************* *********************************MTCHK426 








00427 


* 


:ONVERT BITS IN ACC TO BINARY AND PUT IN MSG 


KTCHK427 








00428 


********************************* *******************HTCHK428 




! 0456 


0000 


00429 


BITS 


DC 




* — * 


ENTRY POINT 


MTCHK429 




"j 0457 


58 95 


00430 




RCPY 


4 


A 


HOLD ACC IN XR4 


MTCHK430 




0458 00 


4C280450 


00431. 




BN 




UNO 




MTCHK431 


•■ 


045A 00 


C40009AA 


00432 




LD 


L 


HEX 


GET A "0" 


MTCHK432 




045C 


7002 


00433 




MDX 




SET 




MTCHK433 




045D 00 


C40009AB 


00434 


UNO 


LD 


L 


HEX+1 


GET A "1" 


MTCKK434 




045F 


D6000000 


00435 


SET 


STO 


L2 


*-* 


AOR OF DEST IS SET UP BY "TYMTCHK435 




0461 


7201 


00436 




MDX 


2 


1 


INCREMENT POINTER FOR NEXT 


BMTCHK436 




•! 0462 


71FF 


00437 




MDX 


1 


-1 


DROP COUNTER 


MTCHK437 




0463 


7007 


00438 




MDX 




NBIT 




MTCHK438 




0464 


5A75 


00439 




RCPY 


A 


2 


CHECK FOR END OF WORD 


MTCHK439 




0465 00 


5C760014 


00440 




REOR 


LA 


20 




MTCHK440 




0467 00 


4C980456 


00441 




BSC 


I 


BITS,*- 


IF 0« GO BACK TO CALLER 


KTCHK441 




; 0469 


6104 


00442 




LDX 


1 


4 


SET UP FOR NEXT 4 BITS 


MTCHK442 




•j 046A 


5841 


00443 




RINC 


2 




INCREMENT POINTER TO SKIP A 


MTCHK443 




046B 


58F5 


00444 


MBIT" 


RCPY 


A 


4 


GET BACK WHAT'S LEFT 


MTCHK444 




•'! 046C 


1001 


00445 




SLA 




1 


SHIFT NEXT BIT INTO P0SITI0NMTCHK445 




i 046D 


70E9 ..._, 


00446 




MDX 




BITS*1 




MTCHK446 




■-i 




00447 


********** 


****** ************************************MTCHK447 




■•'! 




00448 


* 


SUBROUTINE TO CONVERT BAD STATUS WORD BITS 


MTCHK448 




■', 




00449 


• 






TO A 


'*» AND PUT IN MSG TO TYPE 


MTCHK449 




; 




00450 


******************* *********************************MTCHK4 50 




046E 


0000 


00451 


FLAGS 


DC 




* — * 


ENTRY POINT 


MTCHK451 




» 046F 


5B95 


00452 




RCPY 


4 


A 


HOLD ACC IN XR 4 


KTCHK452 




«- ' 0470 00 


4C280475 


00453 




BN 




ERBIT 




MTCHK453 




0472 00 


C40009BA 


00454 




LO 


L 


SPACE 


GET A SPACE CHAR 


MTCHK454 




474 


7002 


00455 




MOX 




SETA 




MTCHK455 




0475 00 


C40009BB 


00456 


Eft Bff 


LD 


L 


SPACE*1 


GET A FLAG <*> 


MTCHK456 




■■■i 0477 00 


06000000 


00457 


SETA 


STO 


L2 


*"* 


ADR INSERTED BY »TYPE» 


MTCHK457 




•; 0479 


7201 


00458 




MDX 


2 


1 


STEP POINTER 


MTCHK458 




"1 ' 47 A 


71FF 


00459 




MDX 


1 


-1 


DROP COUNTER 


MTCHK459 




•j 047B 


7007 


00460 




MDX 




NXBIT 


GO CHK NEXT BIT 


MTCHK460 




1 47C 


5A75 


00461 




RCPY 


A 


2 




MTCHK461 




1 047D 00 


5C760014 


00462 




REOR 


LA 


20 


CHK IF DONE 


MTCHK462 




1 047F 00 


4C98046E 


00463 




BSC 


I 


FLAGS. ♦- 




MTCHK463 




. 481 


6104 


00464 




LOX 


1 


.4 




MTCHK464 




0482 


5841 


00465 




RINC 


2 






MTCHK465 




0483 


58F5 


00466 


. NXBIT 


RCPY 


A 


4 


GET BACK WHAT'S LEFT 


MTCHK466 




!1 ,.,„. 0484 
'■ 0485 

■■••/ 


1001 
70E9 


00467* 
00468 


1 


SLA 

' MOX"" 





1 
FLAGS*! 




MTCHK467 
MTCHK468 "' 


„.- .» ..... .., ....... 
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•i 

o 



0186 

0187 

0188 

0189 00 
018B 
Q18C 00 
048E 00 
0190 
0191 
0192 
0193 



0191 00 



0000 

6101 

5B95 

5C71000F 

5BC5 

C6Q0Q9AA 

D5000000 

58F5 

1801 

71FF 

70F1 

1C800486 



• | 



0196 

0197 00 
0199 00 
019B 00 
019D 
049E 00 
01A0 00 
01A2 00 
01A1 00 
01A6 
01A7 
01A8 00 
01AA 00 
01AC 00 
01AE 00 
01BO 
01B1 
01B2 
01B3 
01B1 



01B5 00 



0000 

C7000553 

D10009CA 

C7000551 

5872 

D100018F 

D1 000160 

01000178 

C7000571 

5BA5 

5BF3 

D10009DB 

OC0009CA 

710109CA 

C100090B 

1810 

70FC 

71FF 

70F3 

7301 

1C800196 



I — 



01B7 
Q4B8 
01B9 00 
01BB 00 
0130 
04BE 00 
01CO 
01C1 00 



0000 
1023 
OC0009C6 

D400Q9E0 

1005 

1C2804C8 

1001 

1C2801C6 



00169 
00170 _ 
00171 
00172 
00173 ... 
00171 
00175 
00176 ....... 

00177 
00178 
00179 .. 
00160 
00181 

00182 

00183 
00181 

00485 

00186 

00187 

00188 

C0189 

00190 

00191 .. 

00492 

00193 

00191 

00195 

00196 

00197 

00198 

00199 

00500 

00501 

00502 

00503 

00501 

00505 

00506 ... 

00507 

00508 

00509 _ 

00510 

00511 

00512 

00513 

00514 

00515 _ 
00516 
00517 

00516 _ 
00519 
00520, t 
00521 _ 
0522 



******************* ********************** ***********MTCHK469 
* CONVERT ACC TO HEX BITS ♦ PUT IN MESSAGE MTCHK470 
***************************************** ********* **MTCHK471 



ENTRY POINT 

4 = NO OF CHAR TO CONVERT 

HOLD DATA IN XR 4 

KEEP ONLY RIGHT FOUR BITS 

PUT BITS IN POINTER ANO 

GET CONVERTED CHAR AND 

PUT IN MESSAGE 

GET BACK WHAT'S LEFT 

SHIFT OUT THE USED BITS 

DROP THE COUNTER 

GO DO THE RESTi IF ANY 

GO BACK TO CALLER 

************************************************* 

* 

* TYPE MESSAGE ON VDT * 

********************** 



CONV DC 
LDX 
RCPY 
RAND 
RCPY 
LO 

SETUP STO 
RCPY 
SRA 
MDX 
HDX 
BSC 



*-* 

1 4 
4 A 

LA /000F 

2 A 
L2 HEX 
LI *-* 

A 4 

1 
1 -1 

CONV+2 
I CONV 



*************************** 



TYPE DC 

LD 
STO 
LO 

RDEC 
STO 
STO 
STO 
LD 

RCPY 
WRITE RSUB 
STO 



XIO 

MOM 

LD 

SKP 

MOX 

«DX 

MOX 

MOX 

BSC 



L3 MSG 
L VDT 
L3 MSG + 1 

A 
L SETUPfl 
L SET*1 
L SETA+1 
L3 CNT 
1 A 
A A 

RFLAG 
VDT 

VDT,*1 
RFLAG 



ENTRY POINT 

GET ADR OF MSG TO TYPE 

PUT IN IOCC 

ADR FOR CONVERTED SWITCHES 



MTCHK172 
MTCHK173 
MTCHK174 
MTCHK175 
MTCHK176 
MTCHK177 
MTCHK178 
MTCHK179 
MTCHK180 
MTCHK481 
MTCHK482 
MTCHK483 
MTCHK484 
MTCHK485 
MTCHK486 
MTCHK487 
MTCHK488 
MTCHK189 
MTCHK190 
MTCHK191 
MTCHK192 



INT3 



OC 

BSI 

XIO 

STO 

SLA 

BN 

SLA 

BN 



*-* 

SAVE 

SILSV 

ILSW3 

5 

ENDOP 

1 

PROG 



MTCHK193 

PUT IN CONVERSION RTN FOR LAMTCHK494 

MTCHK495 
HTCHK496 
MTCHK497 
MTCHK198 
MTCHK199 
MTCHK500 
MTCHK501 
CMTCHK502 
MTCHK503 
MTCHK501 
KTCHK505 
MTCHK506 
MTCHK507 
MTCHK5C3 
MTCHK509 
MTCHK510 
MTCHK511 
MTCHK512 
MTCHK513 
MTCHK511 
MTCHK515 
MTCHK516 
MTCHK517 
MTCHK518 
MTCHK519 
MTCHK520 
MTCHK521 
MTCHK522 



GET CHAR CT OF MSG TO TYPE 

PUT IT IN COUNTER 

CLEAR ACC 

CLEAR RESPONSE FLAG 

WRITE CHAR TO VDT 

INCREMENT AOORESS FOR NEXT 

RESP LD L RFLAG CHK FOR VDT RESPONSE 

' " - SKIP IF NEG 

RESP OR GO CHECK IT AGAIN 
-1 DROP COUNTER 
WRITE TYPE NEXT CHAR 
♦1 STEP TABLE OISP POINTER 
TYPE GO BACK TO CALLER 
************************************************* 

* 

* INTERRUPT SUBROUTINES * 

.... . ..... .. „ 

* 

************************************************* 



ENTRY POINT LVL 3 <MTA) 



SAVE IT 

CHK FOR END OP BIT 5 

60 RESET IT 

OR CHK FOR PROG INT BIT 6 

GO RESET IT 
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04C3 00 


C40009E0 


00523 


ID 


L 


ILSU3 


04C5 


301E 


00524 


DC 




/301E 


C4C6 00 


OC0009CO 


00525 


PROG XIO 


L 


RSTPR 


04C8 00 


0C0009BE 


00526 


ENDOP XIO 


L 


RST 


04CA 


4018 


00527 


BSI 




RESTO 


04CB 00 


4CC004B7 


00528 
00529 


BOSC 

* 


I 


INT3 


04CO 


0000 


00520 


. JNT4 DC 




*-* 


04CE 


4 0D 


00531 


BSI 




SAVE 


04CF 00 


OC0009C8 


00532 


XIO 


L 


SDUR 


04D1 00 


D40009DB 


00533 


STO 


L 


RFLAG 


0403 


1002 


00534 


SLA 




2 


0404 


4810 


00535 


SKP 




- 


04D5 


7003 


00536 


KDX 




TUBE 


0406 


400C 


00537 


BSI 




RESTO 


0407 00 


4C400221 


00538 


BOSC 


L 


CONS 


04D9 


4009 


00539 


. TUBE BSI 




RESTO 


040A 00 


4CC004CD 


00540 


BOSC 


I 


INT4 






00541 


******************* 


04DC 


0000 


00542 


SAVE DC 




*-* 


04DD 


0810 


00543 


STD 




SAVA 


040E 


6911 


00544 


STX 


1 


XR1 


040F 


6A11 


00545 


STX 


2 


XR2 


04E0 


6B11 


00546 


STX 


3 


XR3 


04E1 00 


4C8004DC 


00547 


BSC 


I 


SAVE 






00548 


******************* 


04E3 


0000 


00549 


RESTO DC 




*-* 


04E4 00 


658004FO 


00550 


LDX 


11 


XR1 


04E6 00 


668004F1 


00551 


LDX 


12 


XR2 


04E8 00 


678004F2 


00552 


LDX 


13 


XR3 


04EA 


C803 


00553 


LOD 




SAVA 


04EB 00 


4C8004E3 


00554 


BSC 


I 


RESTO 






00555 


******************* 


04EE 


0000 


00556 


BSS 


E 





04EE 


0000 


00557 


SAVA DC 




*— * 


04EF 


0000 


00558 


DC ' 




*-* 


04F0 


0000 


00559 


XR1 DC 




*-* 


04FI 


0000 


00560 


XR2 DC 




*-* 


04F2 


0000 


00561 


XR3 DC 




*-* 






00562 


*****•***•*•**•**•• 






00563 


**************** 






00564 " 


••a**************** 


4F3 


09F0 


00565 


RTNAO DC 




RTNO 


04F4 


09F7 


00566 


DC 




RTN1 


04F5 


09FB 


00567 


DC 




RTN2 


04F6 


09FF 


00568 


DC 




RTN3 


04F7 


0A03 


00569 


DC 




RTN4 


04F8 


0A07 


00570 


DC 




RTN5 


04F9 


0A03 


00571 


DC 




RTN6 


04FA 


OAOF 
0A15 


00572 


DC 




RTN7 


04FS 


00S73 


DC 


RTN8 ' 


04FC 


0A22 


00574 


DC 




RTN9 


04FD 


0A2C 
OA30 


00575 ' 


DC 


.,..:.. , 


RTNA 


04FE 


00576™" 


"DC 


RTNB 



GET ILSU BACK 
ILSU ERROR WAIT 
RESET PROG INT 
RESET ENDOP INT 
RESTORE REGS 
GO BACK 

ENTRY POINT LVL 4 ICONS OR 

RESET THE INTERRUPT 
SET RESPONSE FLAG 

SKIP IF CONSOLE INTERRUPT 
OR GO SERVICE VDT 

GO CHANGE MODE 

GO BACK 

******************************** 

ENTRY POINT 

SAVE ACC. EXT, XR1, 2. 3... 



GO GACK TO CALLER 

a******************************* 
ENTRY POINT 
RESTORE XR1. 2, 3« ACC AND 



GO BACK TO CALLER 

********************************* 

SAVE THIS AREA FOR REGS 



******************************** 

TABLES *********************** 

a******************************* 

ADDRESS FOR ALT COMMAND CHA 



MTCHK523 
MTCHK524 
MTCHK525 
MTCHK526 
MTCHK527 
HTCHK528 
MTCHK529 
VMTCHK530 
MTCHK531 
MTCHK532 
MTCHK533 
MTCHK534 
MTCHK535 
MTCHK536 
MTCHK537 
MTCHK538 
MTCHK539 
MTCHK540 
*MTCHK541 
MTCHK542 
MTCHK543 
MTCHK544 
MTCHK545 
HTCHK546 
MTCHK547 
♦MTCHK548 
MTCHK549 
EKTCHK550 
MTCHK551 
MTCHK552 
MTCHK553 
MTCHK554 
MTCHK555 
MTCHK556 
MTCHK557 
MTCHK558 
MTCHK559 
MTCHK560 
MTCHK561 
•MTCHK562 
♦MTCHK563 
♦MTCHK564 
IMTCHK565 
MTCHK566 
MTCHK567 
MTCHK568 
KTCHK569 
MTCHK570 
MTCHK571 
MTCHK572 
MTCHK573 
MTCHK574 
MTCHK575 
MTCHK576 
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04FF 


0A35 


00577 


DC 


RTNC 




MTCHK577 


0500 


0A4O 


0578 - 


DC ... 


RTND 


_ _..,.. , ... r .. ...... ■ .... .... ,~ ,..- 


MTCHK578 


0501 


0A59 


00579 


DC 


RTNE 




HTCHK579 


0502 


0A61 


00580 


DC 


RTNF 




MTCHK580 


0503 


0A68 
0A60 


00581 


DC 


RTN10 
RTN11 


- - 


HTCHK581 


0504 


00582 


DC 


MTCHK582 


0505 


0A74 


00583 


DC 


RTN12 




HTCHK583 


0506 


0A81 ..... 


00584 __ 


DC 


RTN13 




KTCHK584 


0507 


0A86 


00585 


DC 


RTN14 




HTCHK585 


0508 


OA90 


00586 


DC 


RTN15 




MTCHK586 


0509 


0A97 
0A9E 


00587 


DC 


RTN16 
RTN17 


: '■■■ 


HTCHK587 


050A 


00588 


DC 


MTCHK588 


Q50B 


02F2 


00589 


ROUTN DC 


RUTO 


ADDRESS OF RUTO 


MTCHK589 


050C 
0500 


02F4 
02F6 


0590 __. 
00591 


DC 
DC 


RUT1 
RUT2 


-'.- - • • ■ - • 


MTCHK590 
MTCHK591 


050E 


02F8 


00592 


DC 


RUT3 




MTCHK592 


050F 
0510 


02FA 
02FC 


00593 
00594 


DC 
DC 


RUT4 
RUT5 


- - --•••• • - 


MTCHK593 
MTCHK594 


0511 


02FE 


00595 


DC 


RUT6 




HTCHK595 


0512 


0300 
0302 


00596 


DC 


RUT7 
RUT8 


- ' ; --"•. -v - ' 


HTCHK596 ...._ 


0513 


00597 


DC 


MTCHK597 


0514 


0304 


00598 


DC 


RUT9 




MTCHK598 


0515 


030B. ._. 
0311 


00599 


DC 


RUTA 
RUTB 


- : -- ' '-' 


HTCHK599 


0516 


00600 


DC 


HTCHK600 


0517 


0328 


00601 


DC 


RUTC 




HTCHK601 


0518 


032D 


00602 _. 


DC 


RUTD 




MTCHK602 


0519 


0331 


00603 


DC 


RUTE 




MTCHK603 


051A 


0339 


00604 


DC 


RUTF 




MTCHK604 


051B 


0333 


00605 


DC 


RUT10 




HTCHK605 


051C 


0330 


00606 


DC 


RUTH 




HTCHK606 


051O 


033F 


00607 


DC 


RUT12 




MTCHK607 


Q51E 
051F 


0346 
0353 


00608 
00609 


DC 
DC 


RUT13 
RUT14 


- : • -■ - ■ ■■•• 


HTCHK608 
MTCHK609 


0520 


0371 


00610 


DC 


RUT15 




MTCHK610 


0521 


0370 


00611 


DC 


RUT16 




KTCHK611 


0522 


0386 


00612 


~" DC 


RUT17 




MTCHK612 


0523 


4000 


00613 


CWD1 DC 


/4000 


CHECK WORD FOR STATUS UD 1 


MTCHK613 


0524 


4000 


00614 


DC 


/4000 


FOR RTN 1 


MTCHK614 


0525 


4000 


00615 


OC 


/4000 


FOR RTN 2 


MTCHK615 


0526 


4000 


00616 


DC 


/4000 


3 


MTCHK616 


0527 


4000 


00617 


DC 


/4000 


4 


MTCHK617 


0528 


C040 


00618 


DC 


~ /C040 


■5 


HTCHK618 


0529 


4000 


00619 


OC 


/4000 


6 


HTCHK619 


052A 


4000 


00620 


DC 


/4000 


7 


MTCHK620 


052B 


4000 


00621 


" DC 


/4000 


8 


HTCHK621 


052C 


4000 


00622 


OC 


/4000 


9 


MTCHK622 


052D 


4000 
4000 


00623 


OC 


/4000 
/4000 


A 
B 


MTCHK623 


052E 


00624 


DC 


MTCHK624 


052F 


4000 


00625 


OC 


/4000 


C 


HTCHK625 


0530 


4000 


00626 


OC 


/4000 





HTCHK626 


0531 


C800 


00627 


OC 


/C800 


E 


MTCHK627 


0S32 8 


C840 


00628, | 
00629 


OC 


/C840 


F 


MTCHK628 


0533 


C010 


DC 


/C010 


io „...._: , 


MTCHK629 


0534 


C820 


80630 


DC 


/C820 


it 


MTCHK630 



L 



00/00/71 0001 


HRS 
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- — 


• 






0535 4000 


00631 


DC /4000 


12 


MTCHK631 




0536 4000 


00632 


OC /4000 


13 


MTCHK632 


... ./ ... . 


0537 4000 


00633 


OC /4000 


14 


MTCHK633 




0538 4000 


00634 


DC /4000 


15 


MTCHK634 




0539 4000 , 


. 0635 . 


DC /4000 


16 


HTCHK635 




053A 4000 


00636 


DC /4000 


17 


MTCHK636 




053B 2370 


00637 


CWD2 DC /2370 


RTN 0* EXPECTED STATUS WORD 


MTCHK637 




053C 0310 ... 


00638 


DC /0310 


1 


KTCHK638 


... .., . .. 


053D 0310 


00639 


DC /0310 


2 


MTCHK639 




Q53E 0310 


00640 


DC /0310 


3 


MTCHK640 




053F 0320 


00641 
00642 


OC /0320 


4 
5 


MTCHK641 
KTCHK642 




0540 2320 


DC /2320 




0541 2320 


00643 


DC /2320 


6 


MTCHK643 




0542 0600 . 


00644 


DC /0600 


7 


MTCHK644 




0543 0320 


00645 


OC /0320 


8 


MTCHK645 




0544 0320 


00646 


DC /0320 


9 


MTCHK646 




0545 0320 . 


00647 


DC /0320 


A 


MTCHK647 




0546 0340 


00648 


DC /0340 


8 


MTCHK648 




0547 0600 


00649 


DC /0600 


C 


MTCHK649 




0548 0340 


00650 


DC /0340 


D 


MTCHK650 




0549 0320 


00651 


DC /0320 


E 


MTCHK651 




054A 0320 


00652 


DC /0320 


F 


MTCHK652 




054B 0320 


00653 


DC /0320 


10 


MTCHK653 




054C 0320 


00654 


OC /0320 


11 


MTCHK654 




054D 0310 


00655 


DC /0310 


12 


MTCHK655 




054E 0320 


00656 


DC /0320 


13 


MTCKK656 




054F 0340 


00657 


DC /0340 


14 


MTCHK657 




0550 0310 


00658 


DC /0310 


15 


MTCHK658 




0551 0320 


00659 


DC /0320 


16 


MTCHK659 




0552 0600 


00660 


DC /0600 


17 


MTCHK660 






00661 


************************************************* 


MTCHK661 






00662 


* 


* 


MTCHK662 






00663 


* TABLE OF ADDRESSES 


AND CHAR COUNTS OF MSGS '*""• 


MTCHK663 






00664 


* 


* 


MTCHK664 






00665 


************************************************* 


MTCHK665 




0553 0595" 


00666 


MSG DC HSGO 


ADDRESS OF MESSAGE 


MTCHK666 




0554 071F 


00667 


DC MSG1 




MTCHK667 




0555 0757 


00668 


DC MSG2 


^ ■ _ ;. 


MTCHK668 




0556 0766 


00669 


"~ DC '" MSG3 




MTCHK669 




0557 0784 


00670 


DC MSG4 




MTCHK670 




0558 07A4 


00671 


DC HSG5 




KTCHK671 




0559 07C7 


00672 


"' "~ DC "~ MSG6 




MTCHK672 




055A 07CD 


00673 


DC HSG7 




MTCHK673 




0558 0800 


00674 


. DC MSG8 




MTCHK674 




55C 8 06 


00675 


. ' DC M sG9 




MTCHK675 




0550 0813 


00676 


DC MSG10 




MTCHK676 




055E 081F 


0677 


OC MSGU 




MTCHK677 




055F 0824 


00678 


DC "' MSG12 


. , 


MTCHK678 




0560 0825 


00679 


OC HSG13 




MTCHK679 




0561 0826 


00680 


DC MSG14 




MTCHK680 




0562 0827 


00681 


""" OC MSG15 




MTCHK681 




0563 0828 


0068; 


r DC MSG16 




MTCHK682 




0564 0829 


00683 

00684 


DC MSGU 




MTCHK683 
MTCHK684 


,, ,„„,«,-., .,,-. , s .... 


0565 0849 


__. pc HS6J8 





'■ 00/00/71 0001 


HRS 
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0566 0860 

. 0567 087C 

0568 08A2 

i 0569 08BE 

056A 08E4 

056B 0900 

056C 0914 

.. .. 0560 0924 


00685 

.... 0686 
00687 
00688 
00689 
00690 
00691 
00692 
00693 
00694 

„ 00695 
00696 
00697 

00698 

C0699 
00700 

_.. 00701 
00702 
00703 


DC MSG19 

— ... DC . MSG20 

DC HSG21 
DC HSG22 

DC MSG23 

DC MSG24 

DC MSG25 

DC MSG26 


CHAR COUNT OF MSG 

1 

2 

3 

CHAR COUNT OF MSG 4 


MTCHK685 
MTCHK686 
MTCHK687 
MTCHK688 
MTCHK689 
MTCHK690 
MTCHK691 
MTCHK692 
MTCHK693 
MTCHK694 
MTCHK695 
MTCHK696 
MTCHK697 
MTCHK698 
MTCHK699 
MTCHK700 
MTCHK701 
MTCHK702 
MTCHK703 


056E 0930 

056F 0935 

57 95C 

0571 0974 

0572 098C 

0573 09A4 
574 018A 
0575 0038 

0576 OOOF 


DC MSG27 
DC MSG28 

_.. DC MSG29 

OC MSG30 
DC MSG31 

- : DC MSG32 

CNT DC 394 
DC 56 

DC 15 


0577 OOIE 

0578 0020 


DC 30 
DC 32 


0579 0023 

057A 0006 
057B 0033 
057C 0006 


00704 

00705 
00706 

... 00707 
00708 
00709 
00710 
00711 
00712 


OC 35 

OC 6 
DC 51 

. _ _ DC 6 


. CHAR COUNT OF MSG 5 
6 
7 
8 
9 

10 
11 
12 
13 


MTCHK704 
MTCHK705 
MTCHK706 
MTCHK707 
MTCHK708 
KTCHK709 
MTCHK710 
MTCHK711 
MTCHX712 


057D 0000 
057E OOOC 
057F 0005 
05H0 0001 
0581 0001 


DC 13 
DC 12 
DC 5 
DC 1 
DC 1 


. 0582 0001 


00713 


DC 1 


14 


MTCHK713 


0583 0001 


00714 


oc i "" 


15 


MTCHK714 


0584 0001 


00715 


DC 1 


16 


MTCHK715 


0585 0020 
; 0586 0017 


00716 
00717 


OC 32 

DC 23 


17 

18 


PTCHK716 
MTCHK717 


0587 001C 


00718 


DC 28 


19 


MTCHK718 


: .. 0588 0026 


00719 


DC 38 


20 


MTCHK719 


0569 001C 


00720 


DC 28 


21 " 


MTCHK720 


058A 0026 


00721 


DC 38 


22 


MTCHK721 


..:,,_ 5 8B 001C 


00722 


DC 28 


23 


MTCHK722 


058C 0014 


00723 


DC 20 


24 


MTCHK723 


0580 0010 


00724 


OC 16 


25 


MTCHK724 


. .0.5 8 E OOOC 


00725 


_,.. DC 12 


26 


MTCHK725 


058F 0005 


00726 


DC 5 


27 


MTCHK726 


0590 0027 


00727 


DC 39 


28 


MTCHK727 


...... 591 018 


00728 


....... DC 24 


29 


MTCHK728 


0592 0018 


00729 


DC 24 


30 


MTCHK729 


0593 0018 


00730 


DC 24 


31 


MTCHK730 


0594 0_ 00 06 


_. 00731 


DC 6 


32 


MTCHK731 




00732 


a********************** ************************** 


MTCHK732 




00733 


■• 


* 


MTCHK733 


. .. . .; 


00734 


* _ MESSAGES FOR VDT 


• 


MTCHK734 




00735 


* 


• 


MTCHK735 




00736 


**••*•*••******* ****************«*******,**»***,* 


MTCHK736 


0595 0022 


00737 


„ HS60 OMES »T C H I 


MTCHK V 1 H 2 »R »R 


•MTCHK737 


Q5A6 0024 


""00738"" 


DHES "PROG 


WILL CHECK C H ♦ 


MTCHK738 
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05B8 


0024 


00739 


DMES 


I 


M 


A 


G 




TAP 


E AOAPTOR* 


MTCHK739 


05CA 


20 ... 


. 00740 


OMES 


A 


N 


D 




T 


RAN 


S P R T . *R • 


MTCHK740 


05DA 


0020 


00741 


DMES 


A L 


L 




s 


T 


A T U 


S WORD • 


MTCHK741 


05EA 


0020 


00742 


OMES 


A N 


D 




D 


A 


T A 


ERRORS • 


MTCHK742 


05FA 


0020 


00743.. 


DMES 


U I 


L 


L 




B 


E L 


G G £ D . *R * 


MTCHIC743 


060A 


0024 


00744 


DMES 


R U 


N 




T 


I 


M E 


FOR 1 PAS* 


MTCHK744 


061C 


0020 


00745 


DMES 


S 





N 




1 


X P 


R T IS • 


MTCHK745 


..... Q62C 


24 _. 


00746 . 


___ DMES 


A P 


P 


R 





X 


7 


MINUTES. *R 


•MTCHK746 


063E 


0024 


00747 


DMES 


T 




C 


H 


A 


N G E 


MODE OR • 


MTCHK747 


0650 


0024 


00748 


DMES 


R E 


S 


T 


A 


R 


T 5 


PRESS CON* 


MTCHK748 


0662 


0022 


00749 


DMES 


S 


L 


E 




I 


N T E 


R R U P T . *R *R • 


MTCHK749 


0673 


0024 


00750 


DMES 


W A 


I 


T 


S 


• 


•R 3 ( 


10 6 - WAIT 


•MTCHK750 


0685 


0024 


00751 


DMES 


I N 


G 




F 





R I 


NTERRUPT • 


MTCHK751 


0697 


0024 


00752 . 


DMES 


F R 





M 




s 


E L E 


CT XPORT'R 


•MTCHK752 


06A9 


0026 


00753 


DMES 


3 





7 




- 


W A 


IT1NG FOR 


MTCHK753 


06BC 


0024 


00754 


OMES 


I N 


T 


E 


R 


R 


U P T 


FROM COM* 


HTCHK754 


06CE 


0016 


00755 


DMES 


M A 


N 


D 




C 


H A 1 


N 'R ♦ 


MTCHK755 


0609 


0024 


00756 


DMES 


3 


1 


E 




- 


I L 


S V E R R R 1 • 


MTCHK756 


06EB 


24 


00757 


DMES 


I 


L 


S 


U 




B I T 


IS IN AC* 


MTCHK757 


06FD 


0022 


00758 


DMES 


C »R « 


•T 


B 


I 


T 5 


IS E N D P » 


MTCHK758 


070E 


0022 


00759 


DMES 


•R ' 


»T 


B 


I 


T 


6 


IS P R G *R »R 


MTCHK759 


071F 


0024 


00760 


MSG1 DMES 




E 


N 


T 


E 


R M 


E I N S W » 


MTCHK760 


0731 


0026 


00761 


DMES 


1 


3 




( 





N = 


P E » OFF = 


MTCHK761 


0744 


0002 


00762 


DMES 


t 














MTCHK762 


0745 


0024 


00763 


OMES 


N R 


Z 


I 


) 




-PR 


ESS START* 


EMTCHK763 


0757 


001E 


00764 


MSG2 DMES 


»R M D 




E N 


r E R E o : • 


HTCHK764 


0766 


, 0024 


00765 


HSG3 DMES 


P E 




- 




"s 


TAR 


T CHI MAG* 


MTCHK765 


0778 


0018 


00766 


DMES 


T 


A 


P 


E 




CHE 


C K *R *E 


MTCHK766 


0784 


0022 


0767 


MSG4 DMES 


N R 


Z 


I 




- 


S T 


ART CHI • 


HTCHK767 


0795 


001E 


00768 


DMES 


H A 


G 




T 


A 


P E 


C H E C K »R *E 


MTCHK768 


07A4 


0022 


00769 


HSG5 DIES 


****** 


D 


A 


T A 


COMPARE • 


MTCHK769 


07B5 


24 


00770 


DMES 


E R 


R 





R 




**•* 


ROUTINE / * 


MTCHK770 


7C7 


OOOC 


00771 


" MSG6 DMES 


X X 


X 


X 


• 


R 


•R *E 




MTCHK771 


07CD 


0024 


00772 


MSG7 DMES 


T 




c 





N 


T I N 


U E t TURN • 


HTCHK772 


07OF 


0024 


00773 


DMES 


N 




s 


u 




i : 


TO BYPASS* 


KTCHK773 


07F1 


001E 


""""■ 00774 


DMES 


T 


u 


R 


N 




N 


S W »R »R »E 


MTCHK774 


80 


OOOC 


00775 


HSG8 DMES 


W 


R 


D 




//•E 




MTCHK775 


8 06 


001A 


00776 


HSG9 DMES 


X X 


X 


X 






V 


A S //*E 


MTCHK776 


0813 


0018 


00777 


MSG10 DMES 


X X 


X 


X 




- 


- s / 


B / *E 


MTCHK777 


081F 


OOOA 


00778 


MSG11 DMES 


X X 


X 


X 


t 


R 


•E 




MTCHK778 


0824 


0002 


00779 


MSG12 DMES 


XX* 


E 












MTCHK779 


"•'" 825 


0002 


""■" 00780 


MSG13 DMES 


XX* 


E 












MTCHK780 


0826 


0002 


00781 


MSG14 DMES 


XX • 


E 












MTCHK781 


0827 


0002 


00782 


MSG15 DMES 


XX* 


E 












MTCHK782 


0828 


0002 


00783 


" MSG16 DMES 


XX» 


E 












MTCHK783 " 


0829 


0022 


00784 


MSG17 OMES 


•R 










****** 


FLAGGED • 


MTCHK784 


083A 


001E 


00785 


OMES 


E R 


R 





R 




****** R T N / »E 


MTCHK785 


0849 


0022 ' 


00786 


HSG18 OMES 


X X 


X 


X 


♦ 


R 


S T A 


T U S WORD » 


MTCHK786 


085A 


OOOC 


00787 


OMES 


1 


W 


A 


S 




•E 




HTCHK787 


0860 


001E 


00788 


MSG19 OMES 


X X 


X 


X 




X 


XXX 


X X X X * 


MTCHK788 


086F 


001A ~ 


00789 


DMES 


~ X X 


X 


X 




«■ 


- 2 


WAS *E 


MTCHK789 


087C 


00 IE- 


00790 . 


, MSG20 DMES 


X X 


X 


X 




X 


XXX 


X X X X • 


MTCHK790 


088B 


0022 


00791 


DMES 


X X 


X 


X 


* 


R 




V R • 


MTCHK791 
MTCHK792 " 


089C 


OOOC 


00792 


" OMES" 


'" i 


S 


/ 


B 




*E 







00/00/71 0001 


HRS 
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..:... 














08A2 




001E 


00793 


MSG21 


OMES 


XXX 


X 


XXXX XXXX* 




MTCHK793 






08B1 




00 1A ... 


... 00794 ... 




DMES 


XXX 


X 


— 2 S / B »E 




HTCHK794 






08BE 




001E 


00795 


MSG22 


DMES 


XXX 


X 


XXXX XXXX • 




MTCHK795 






08CD 




OOOA 


00796 




OMES 


XXX 


X 


•R • 




MTCHK796 






0802 




0024 . 


00797 




OMES 








• 


EMTCHK797 






08E4 




001E 


00798 


MSG23 


DMES 


♦ ♦ ♦ 


♦ 


♦ *•♦♦ ♦♦♦♦ • 




MTCHK798 






08F3 




001A 


00799 




DMES 


♦ ♦ ♦ 


♦ 


•E 




MTCHK799 






0900 




IE 


00800 


MSG24 


DMES 


♦ ♦ *• 


♦ 


♦ ■ ♦ ♦ ♦ * ♦ + ♦ * 




MTCHK800 






090F 




OOOA 


00801 




DMES 


♦ ♦ ♦ 


♦ 


•R »E 




MTCHK801 






0914 




0020 


00802 


MSG25 


DMES 


BYT 


E 


COUNT WAS // 


•E 


MTCHK802 






0924 




0018 


00803 


HSG26 


DMES 


XXX 


X 


— S / B //'E 




MTCHK803 






0930 




OOOA 


00804 


MSG27 


DMES 


XXX 


X 


•R »E 




MTCHK804 






0935 




001E 


00805 


MSG28 


OMES 




M 


TCHK I N T E R R • 




MTCHK805 




-... 


0944 




0020 


00806 




DMES 


U P T 


E 


D*R NUMBER OF 


*. 


MTCHK806 






0954 




0010 


00807 




DMES 


PAS 


S 


E S / »E 




MTCHK807 






95C 




0020 


00808 


MSG29 


OMES 


XXX 


X 


•R NUMBER OF 


i 


MTCHK808 






096C 




0010 


00809 




DMES 


RET 


R 


Y S / »E 




MTCHK809 






0974 




001C 


00810 


MSG30 


DMES 


XXX 


X 


•RFLAGGEO • 




MTCHK810 






0982 




0014 


811 




DMES 


ERR 





R S //'E 




MTCHK811 






.. 098C 




01C 


„ 00812 


MSG31 


DMES 


XXX 


X 


•R C M P A R E • 




MTCHK812 






099A 




0014 


00813 




DMES 


ERR 





R S //«E 




MTCHK813 






09A4 




OOOC 


00814 


MSG32 


DMES 


XXX 


X 


•R •£ 




MTCHK814 






09AA 




0020 .. 


00815 


HEX 


OMES 


00112233445566778899AABBCCODEEFF 


•E 


MTCHK815 






09BA 




0004 


O0816 


SPACE 


DMES 


**»E 






MTCHK816 












00817 


************************************************* 


MTCHK617 










-■ 


00818 
00819 
00820 


* 
* 
* 




IOCC 


•S 




* 
* 
* 


MTCHK818 
MTCHK819 
MTCHK820 












00821 


************************************************* 


HTCHK821 






09BC 




00 00 


00822 




BSS E 











MTCHK822 






098C 





09EC 


00823 


START 


DC 


SELCT 








MTCHK823 






093D 





6800 


00824 




DC 


/6800 




XIO START FOR AREA 13 


(MTA) 


MTCHK824 






09BE 





0000 


00825 


RST 


DC 


*-* 








MTCHK825 






09BF 





6860 


00826 




DC 


/6860 




RESET AREA 13 




MTCHK826 






09C0 





0000 


00827 


RSTPR 


DC 


*-* 








MTCHK827 






09C1 





6880 


00828 




OC 


/6880 




RESET PROG INT 




MTCHK828 






09C2 





0000 


00829 


HALT 


DC 


*-* 








MTCHK829 






09C3 





6870 


00830 




OC 


/6870 




HALT CONTROLLER 




MTCHK830 






09C4 





09E5 


00831 


REAOY 


OC 


REU 




REWIND COMMANO CHAIN 




MTCWK831 






09C5 





6800 


00832 




DC 


/6800 




XIO START COMMANO 




MTCHK832 






09C6 
09C7 






0000 
0300 


00833 
00834 


SILSW 


DC 
DC 


*-* 
/0300 


.... 


SENSE ILSW 




MTCHK833 
MTCHK834 










09C8 





00 


00835 


SOUR 


DC 


*-* 








MTCHK83'5 






09C9 





0F01 


00836 




DC 


/OFOl 




RESET CONS INT AND VOT 




MTCHK836 






09CA 





0000 


00837 


VDT 


DC 


*-* 




MSG ADR IS PUT HERE 




MTCHK837 






09CB 





0900 


00838 




DC 


/0900 




WRITE ASCII TO VDT 




MTCHK838 






09CC 





090F 


00839 


RDSW 


DC 


SUIT 








MTCHK839 






09CO 





3 A 00 


00840 




DC 


/3A00 




READ THE DATA ENTRY SWITCHESMTCHK840 












00841 


****** CONSTANTS ****************************** 


MTCHK841 












00842 


• 












MTCHK842 






"" 09CE 





6BDC 


00843 


DATA 


DC 


/6B0C 




DATA TO PUT IN WBUF 




MTCHK843 






09CF 





FFOO 


80844 
00845 5 * 




OC 


/FFOO 








MTCHK844 






0900 


0. 


6004 


..BR 


DC 


/6004 




__ BRANCH INSTRUCTIONS 




MTCHK845 






0901 





4C00 


00846 




DC 


/4C00 








MTCHK846 "" 
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0902 





0000 


00847 


MODE 


DC 


*-* . 


MTCHK847 


0903 





0000 


00848 . 


XPORT 


DC 


*-* 


MTCHK848 


0904 





0000 


00849 


PASS 


DC 


*•>* 


UPDATED AFTER A PASS ON A XPMTCHK849 


0905 





0000 


00850 


RETRY 


OC 


*-* 


UPOATED AFTER EACH COMMD CHAMTCHK850 


09D6 





0000 


00851 


FERRS 


DC 


*-* 


FLAGGED ERROR COUNT MTCHK851 


0907 





0000 


00852 


CERRS 


DC 


• -* 


COMPARE ERROR COUNT MTCHK852 


09D8 





0000 


00853 


RTN 


OC 


* — * 


MTCHK853 


. 0909 





0000 


00854 


WORDS 


DC 


*••* 


MTCHK854 


09DA 





0400 


00855 


RECDS 


DC 


/4 


MTCHK855 


09DB 





0000 


00856 


RFLA6 


DC 


*-* 


MTCHK856 


090C 





0002 


00857 


TWO 


OC 


/2 


MTCHK857 


- 0900 





0010 


00858 


H0010 


OC 


/10 


MTCHK858 


OSDE 





0200 


00859 


H0200 


DC 


/200 


MTCHK859 


09DF 





0000 


00860 .. 


SUIT 


DC 


*-* 


SWITCH STORAGE MTCHK860 


09E0 





0000 


00861 


1LSU3 


DC 


*-* 


ILSW SAVED MTCHK861 


09E1 





0000 


00862 


FIRST 


DC 


*-* 


SET POS WHEN 1ST WORD C0MPARMTCHK862 


09E2 





0000 


00863 


BAD1 


OC 


*-* 


BAD BITS FROM STATUS WD 1 MTCHK863 


09E3 





0000 


00864 


BAD2 


OC 


*-* 


BAD BITS FROM STATUS WD 2 MTCHK864 


09E4 





0000 


00865 


BAD5 


OC 


*-* 


BAD BITS FROM STATUS WD 5 MTCHK865 


2000 






00866 


WBUF 


EQU 


/3000-/1000 RESERVE FOR WRITE BUFFER MTCHK866 


1000 






00867 


RBUF 


EQU 


WBUF-/1000 RESERVE FOR READ BUFFER MTCHK867 








00868 


****************************************************MTCHK868 








00869 


* 


COMMAND CHAIN 


TO REWIND ALL XPORTS MTCHK869 








00870 


* 


XEQ 


FROM CONS 


INT AND RESET START MTCHK870 








00871 


*************************************************** *MTCHK 871 


09E5 





1F40 


00872 


REW 


OC 


/1F40 


SELECT MTCHK872 


09E6 





0000 


00873 




DC 


*-* 


TRANSPORT NUMBER MTCHK873 


09E7 





2F50 


00874 




OC 


/2F50 


REW W/PROG INTERRUPT MTCHK874 


9E8 





0000 


00875 




DC 


/OOOO 


IGNORED MTCHK875 


09E9 





0400 


876 




DC 


/0400 


SENSE COMMAND MTCHK876 


09EA 





0007 


00877 




DC 


/7 


NO. OF STATUS WORDS MTCHK877 


09EB 





QAA4 


00878 




OC 


SENSE 


WHERE TO PUT THEM MTCHK878 








00879 


""♦♦A********************************************** MTCHK879 








00880 


***** 






*****MTCHK880 








00881 


***** 


MTA 


COMMAND CHAIN *****MTCHK881 








00882 


***** 


NOTE 


t RETRYS 


ARE PERMITTED ON WRITE *****MTCHK882 








00883 


***** 




TO TAPE ONLY. *****.': ."CHK883 








00884 


***** 




PATCHES ARE SHOWN TO EITHER *****MTCHK884 








00885 


• •••• 




INHIBIT OR PERMIT RETRYS. *****MTCHK885 








00886 


***** 




> 


*****MTCHK886 








00887 








MTCHK887 








00888 


~ ************************************************* MTCHK888 


09EC 





1F40 


00889 


SELCT 


DC 


/1F40 


SELECT AREA 13 HTCHK889 


09EO 





0000 


00 890 




DC 


*-* 


XPORT AND MODE INSERTED HEREMTCHK890 


09EE 





0840 


00891 




DC 


/0840 


ALTERNATE COMMAND CHAIN MTCHK891 


09EF 





OAAO 


00892 




DC 


SNSE 


GO SENSE XPORT MTCHK892 








00893 


**************************************** ROUTINE STCHX693 


9F0 





2F50 


00894 


"RTNO 


DC " 


/2F50 


REWIND XPRT <W/PR0S INT) MTCHK894 


09F1 





0000 


00895 




DC 


*-* 


MTCHK895 


09F2 
Q9F3 






EB40 
0001 


00896 




DC 
OC 


/EB40 
1 


SPACE REV RECORD MTCHK896 


00897 




MTCHK897 


09F4 





0401 


00898, t 




DC 


/0401 


SENSE MTCHK898 


09F5 
09F6 

■ ■ ■ 
I . 






0051 
0AA4 


00899 




DC 

DC " 


/5i 

"SENSE" 


MTCHK899 


00900 




MTCHK9QQ 



00/00/ 


7^ 0001 


HRS 








PAGE 


18 




.............. 






09F7 


5740 


00901 


RTN1 


DC 


/5740 


09F8 


0001 


. 00902 




DC 


1 


09F9 


0840 


00903 




DC 


/0840 


09FA 


OAAO 


00904 




DC 


SNSE 


09FB 


D740 


00905 


.._... RTN2 


DC 


/0740 


09FC 


0001 


00906 




DC " 


1 


09FO 


0840 


00907 




DC 


/0840 


09FE 


OAAO 


00908 




DC 


SNSE 


,- 09FF 


5740 


00909 


RTN3 


DC 


/5740 


OAOO 


0014 


00910 




DC 


20 


0AO1 


0840 


. 00911 




DC 


/0840 


0AO2 


OAAO 


00912 




DC 


SNSE 


0A03 


7B40 


00913 


RTN4 


DC 


/7B40 


0A04 


0001 


.. 00914 




OC 


1 


0A05 


0840 


00915 




DC 


/0840 


0A06 


OAAO 


00916 




DC 


SNSE 


0A07 


EB40 


00917 


_.- RTN5. 


DC 


/EB40 


0A08 


0003 


00918 




DC 


3 


0A09 


0840 


00919 




DC 


/0840 


OAOA 


OAAO 


00920 




DC 


SNSE 


OAOB 


7B40 


00921 


RTN6 


DC 


/7B40 


OAOC 


0001 


00922 




DC 


1 


OAOO 


0840 


00923 




DC 


/0 840 


OAOE 


OAAO 


00924 




DC 


SNSE 


OAOF 


D74C 


00925 


RTN7 


DC 


/D740 


0A10 


0014 


00926 




DC 


20 


OAll 


2F50 


00927 




DC 


/2F50 


0A12 


0000 


00928 




DC 


*-* 


0A13 


0840 


00929 




DC 


/0840 


0A14 


OAAO 


00930 




OC 


SNSE 


0A15 


0140 


00931 


RTN8 


DC 


/140 


0A16 


0800 


00932 




OC 


/800 


0A17 


2000 


00933 




DC 


UBUF 


0A18 


0140 


00934 




OC 


/140 


0A19 


07FE 


00935 




DC 


/7FE 


0A1A 


2004 


00936 




OC 


WEUF*4 


0A1B 


0140 


00937 




DC 


/140 


0A1C 


0800 


00938 




OC 


/800 


0A1O 


2000 


00939 




DC 


UBUF 


0A1E 


EB40 


00940 




DC 


/EB40 


0A1F 


0002 


00941 




OC 


2 


0A20 


0840 


00942 




OC 


/840 


0A21 


OAAO 


00943 




OC 


SNSE 


0A22 


0640 


00944 


- RTN9 


DC 


/0640 


0A23 


07FE 


00945 




DC 


/7FE 


0A24 


1000 


00946 




DC 


RBUF 


0A25 


2540 


00947 




DC 


/2540 


0A26 


07FE 


00948 " 




DC 


/7f -1 


0A27 


2000 


00949 




DC 


UBUF 


0A28 
0A29 


EB40 
0001 


00950 
00951 


•_ _ 


DC 

DC ~ 


/EB40 
1 


0A2A 


0840 


00952 




DC 


/84 


0A2B 


OAAO 
EB40 


00953 • 


1 


OC 
OC 


SNSE 


0A2C 


00954 


RTNA 


"/EB40 ; 



URITE RECORD GAP 



URITE FILE HARK 



WRITE RECORD GAP 



SPACE REVERSE FILE 



SPACE REV RECORD 



SPACE REV FILE 

URT FILE MARKS 

REUIND W/PROG INT (ILSW 6) 

URITE TO TAPE 



URT RECORD TO EDIT 
BYTE COUNT 

URT 



SPACE REV 2 RECORDS 



READ FORUARD 



EDIT FROM HOST 



SPACE REV RECORD 



SPACE REV RECORD 



MTCHK901 

MTCHK902 

MTGHK903 

MTCHK904 

MTCKK90 5 

MTCHK906 

MTCHK907 

MTCHK908 

MTCHK909 

MTCHK910 

MTCHK911 

MTCHK912 

MTCHK913 

MTCHK914 

MTCHK915 

MTCHK916 

MTCHK917 

MTCHK918 

MTCHK919 

MTCHK920 

MTCHK921 

MTCHK922 

MTCHK923 

KTCHK924 

MTCHK925 

MTCHK926 

MTCHK927 

MTCHK928 

MTCHK929 

MTCHK930 

MTCHK931 

MTCHK932 

MTCHK933 

MTCHK934 

MTCHK935 

MTCHK936 

MTCHK937 

MTCHK938 

MTCHK939 

MTCHK940 

MTCHK941 

KTCHK942 

MTCHK943 

MTCHK944 

MTCHK945 

MTCHK946 

MTCHK947 

MTCHK948 

MTCHK949 

MTCHK950 

MTCHK951 

MTCHK952 

MTCHK953 

KTCHK954 ' 



00/00/7T" 0001 HRS 
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0A2D 

QA2E 

1 0A2F 


0001 
0840 
0AA0 


00955 

... 00956 

00957 




DC 
DC 
DC 


1 

/840 

SNSE 




MTCHK955 
MTCHK956 
MTCHK957 
MTCHK958 


0A30 


0640. 


00958 


RTNB 


DC 


/0640 


READ FORWARD <3 TIMES) 


■ _.. 0A31 
0A32 
0A33 


08,00 
1000 
0840 


00959 
00960 

00961 


— — - 


DC 
DC 
DC 


/8 
R8UF 
/840 


... BT CT CHANGED (800* 07FE 


i 08MTCHK959 

MTCHK960 
HTCHK961 
MTCHK962 
MTCHK963 
MTCHK964 
MTCHK965 
MTCHK966 
MTCHK967 
MTCHK968 
MTCHK969 
MTCHK970 
MTCHK971 
MTCHK972 
MTCHK973 
IN KTCHK974 
MTCHK975 


0A34 

i 0A35 

1 QA36 

0A37 

0A38 

0A39 

. 0A3A 

i 0A3B 

! 0A3C 

0A3D 

0A3E 

0A3F 

0A40 

0A41 


OAAO 

2F40 

00 

0140 

08 00 

2008 

0140 . . 

0700 

2004 

0140 

0400 

2002 

0140 

0200 


00962 
00963 
00964 
00965 
00966 
00967 
00968 
00969 
00970 
00971 
00972 
00973 
00974 
00975 


RT.NC 


DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 


SNSE 
/2F40 

*-* 

/140 

/800 

VBUF+8 

/140 

/700 

WBUF*4 

/140 

MOO 

WBUF+2 

/140 

/200 


REWIND 

.._. URT 

WRT 

WRT 

WRT RECORD TO SEARCH FOR 
BYTE COUNT 


• 0A42 


2000 


00976 




DC 


WBUF 




MTCHK976 
MTCHK977 
MTCHK978 
MTCHK979 
MTCHK980 
MTCHK981 
KTCHK982 
MTCHK983 
MTCHK984 
MTCHK985 
MTCHK986 
MTCHK987 


:_-,. 0A43 
0A44 
0A45 
0A46 
0A47 


0140 
0100 
2003 
0140 
0800 


00977 
00978 
00979 
00980 
00981 




DC 
DC 

DC 
DC 
DC 


/140 

/100 

WBUF+3 

/140 

/800 


WRT ANOTHER 
WRT 


0A48 


2005 


00982 




DC 


WBUF+5 




0A49 
0A4A 


2F50 
0000 


00983 
00984 


— -; 


DC 
OC 


/2F50 

*-* 


REWIND (W/PROG INT) 


0A4B 
0A4C 
OA40 


0840 
OAAO 
3540 


00985 
00986 
00987 


RTND 


DC 
DC 
DC 


/840 
SNSE 
/3540 


WRT COMPARE BUFFER 


0A4E 
QA4F 
0A50 


0028 
2007 
9840 


00988 
00989 
00990 




OC 
DC 
DC 


40 

WBUF*7 

/9B40 


WITH MAX BYTE COUNT 
SEARCH FOR RECORD 


MTCHK988 
MTCHK989 
MTCHK990 


0A51 


OOOE 


00991 




DC 


/E 


STARTING WITH 14TH BYTE 


MTCHK991 


0A52 
0A53 
0A54 


EB40 
0001 '■""" 
0640 


00992 
00993 ' 
00994 


, . — . . 


DC 
DC 
DC 


/EB40 
1 

/0640 


SPACE REV RECORD 
READ FORWARD 


MTCHK992 
MTCHK993 
MTCHK994 


0A55 
0A56 


0200 

1000 


00995 
00996 ' 




DC 
DC 


/200 
RBUF 




MTCHK995 
MTCHK996 
MTCHK997 
MTCHK998 
MTCHK999 


0A57 

_ 0A58 
0A59 


0840 
OAAO 
0140 


00997 
00998 
00999 


"~~RTNE " 


OC 
DC 
DC 


/840 
SNSE 
/140 


WRT 


0A5A 
0A58 
0A5C 


07EE 
2000 
0E40 


01000 
01001 
01002 


- ;- - 


DC 
DC 
DC 


/07EE 

WBUF 

/0E40 


READ REV 


MTCHK000 
MTCHK001 
KTCHK002 


; '* 0A5O 


0100 


01003 




DC 


/0100 


WITH WRONG BYTE COUNT 


MTCHK003 


0A5E 

QA5F 


10 00 
0840 


01004 
010 05 


•» 


DC 

DC '" " 


RBUF 
/840 




MTCHK004 
MTCHK005 
MTCHK006 
MTCHK007 
MTCHK008 ' 


OA60 


OAAO 
D740 


01006 
01007 • 
01008 


« RTNF 


OC 
OC 
"DC" 


SNSE 

/D740 

1 


. WRT FILE MARK 


0A62 0" 


0001 



OO/OO/fl 0001 HRS 
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0A63 

0A64 

0A65 

0A66 

0A67 

0A68 

0A69 

0A6A 

0A6B 

0A6C 

0A6D 

0A6E 

0A6F 

0A70 

0A71 

0A72 

0A73 

0A74 

0A75 

0A76 

0A77 

0A78 

0A79 

0A7A 

CA7B 

0A7C 

0A7D 

0A7E 

0A7F 

0A80 

0A8X 

0A82 

0A83 

0A84 

0A85 

0A86 

































































0A87 
0A88 
0A89 
0A8A 
0A88 
0A8C 
OA80 
0A8E 
0A8F 
0A90 
0A91 
0A92 
0A93 
0A94 
0A95 
..0A96 
0A97 



0E40 

0002 

1000 

0840 

OAAO 

1540 

0840 

2000 

0840 

OAAO 

5740 

0100 

0E40 

0100 

1000 

0840 

OAAO 

1560 

0100 

2000 

1560 

0100 

2080 

1540 

0100 

2100 

0740 

0300 

0840 

OAAO 

0E40 

0300 

1000 

0840 

OAAO 

0140 

1000 

2000 

EB40 

0001 

0640 

1000 

1000 

0840 

OAAO 

1540 

0800 

2000 

0740 

0800 

0840 

0AA0_ 

3840 



01009 
. 01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 
01018 
01019 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01028 
01029 
01030 
01031 
01032 
01033 
01034 
01035 
01036 
01037 
01038 
01039 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
01048 
01049 
01050 
01051 
01052 
01053 
01054 
01055 
01056 
01057 
01058 
01059 
01060 
01061„ 
01062 



DC 

OC 

DC 
DC 

DC 

RTN10 DC 
DC 

DC 

DC 
OC 

RTN11 DC 

DC 
DC 

DC 

OC 

OC 

_ DC 

RTN12 DC 

DC 

OC 

OC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 
RTN13 DC 

. DC 

DC 

DC 

DC 

RTN14 DC 

* 

DC 
DC 
OC 
_ OC 
DC 
OC 
DC 
DC 
OC 
_ RTN15 DC 
DC 
DC 

_, . DC 

OC 
DC 
OC 
RTN16 DC 



• I 



/0E40 
... 2 

RBUF 

/840 

SNSE 

/1540 

/0840 

WBUF 

/0840 

SNSE 

/5740 

/100 

/0E40 

/100 

RBUF 

/840 

SNSE 

/1560 

/100 

WBUF 

/1560 

/100 

U8UF+/80 

/1540 

/100 

WBUF+/100 

/0740 

/300 

/840 

SNSE 

/OE40 

/300 

RBUF 

/840 

SNSE 

/0140 URT 

/1000 

WBUF 

/EB40 

1 

/0640 

/1000 

RBUF 

/0840 

SNSE 

/1540 

/800 

WBUF 

/0740 WRT 

/800 

/0840 

SNSE 

/3B40 



READ REVERSE 



WRT HOST TO 2K LOCAL BUFFE 
U/BYTE COUNT TOO LARGE 



WRT RECORD GAP 
READ REV 



WRT HOST TO LOCAL BUFFER 
W/ CHAIN DATA 

WRT - CHAIN DATA 



URT 



URT LOCAL BUFFER TO TAPE 
BYTE COUNT 



READ REV TAPE TO HOST 

THE CHAINED DATA OF PREV 



HOST TO TAPE» W/RETRY 
<PATCH TO /0540 TO INHIBIT 
BYTE COUNT 

BACKSPACE 

ONE RECORO 

READ TAPE TO HOST C/240) 

BYTE COUNT 

GO SENSE 

WRITE HOST TO LOCAL BUFFER 
BYTE COUNT 

LB TO TAPEt W/RETRY (1740 
BYTE COUNT 
GO SENSE 

READ REV TAPE TO LB </2B4 



MTCHK009 
. MTCHK010 
MTCHK011 
MTCHK012 
MTCHK013 
R MTCHK014 
MTCHK015 
MTCHK016 
MTCHK017 
HTCHK018 
MTCHK019 
HTCHK020 
HTCHK021 
MTCHK022 
MTCHK023 
MTCHK024 
MTCHK025 
MTCHK026 
MTCHK027 
HTCHK028 
MTCHK029 
MTCHK030 
MTCHK031 
MTCHK032 
MTCHK033 
KTCHK034 
KTCHK035 
MTCHK036 
HTCHK037 
MTCHK038 
HTCHK039 
RMTCHK040 
HTCHK041 
MTCHK042 
MTCHK043 
MTCHK044 
RMTCHK045 
MTCHK046 
MTCHK047 
HTCHK048 
HTCHK049 
KTCHK050 
KTCHK051 
MTCHK052 
MTCHK053 
MTCHK054 
(MTCHK055 
HTCHK056 
MTCHK057 
W/MTCHK058 
MTCHK059 
MTCHK060' 
MTCHK061 
0)HTCHK062 " 
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■ 


-- - 










0A98 





0600 


01063 


DC 


/800 


BYTE COUNT 


MTCHK063 




0A99 





1640 . 


01064 


DC 


/1640 


RD FUD L8 TO HOST </1240>MTCHK064 




0A9A 





0800 


01065 


DC 


/800 


BYTE COUNT 


MTCHK065 




0A9B 





1000 


01066 


DC 


RBUF 




MTCHK066 




0A9C 





0840 


01067 


OC 


/0840 


GO SENSE 


MTCHK067 




0A9D 





OAAO 


01068 


DC 


SNSE 




MTCHK068 




0A9E 





2F40 


01069 


RTN17 OC 


/2F40 


REWIND W/IMMEDIATE INTERRUPTNTCHK069 




. 0A9F 





0000 


01070 


DC 


• — * 


FALL THRU TO SENSE COMMAND 


MTCHK070 










01071 


******* •* * 


SENSE 


***************************** 


MTCHK071 




0AA0 





0401 


01072 


SNSE DC 


/0401 


SENSE COMMAND 


MTCHK072 




0AA1 





0051 


01073 


DC 


/51 


NUMBER OF WORDS TO TRANSFER 


MTCHK073 




0AA2 





0AA4 


01074 


DC 


SENSE 


THE PLACE TO PUT THEM 


MTCHK074 




0AA4 




OOOQ 


01075 


BSS 


E 




MTCHK075 










01076 


************************************************* 


MTCKK076 










01077 


* MTA STATUS WORDS 


ARE PUT HERE * 


MTCHK077 










01078 


************************************************* 


MTCHK078 




0AA4 




0051 


01079 


SENSE BSS 


/51 




MTCHK079 




0AF6 




0200 


01080 


END 


TOP 




MTCHK080 



I p.... 



r 






• • 
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SYMBOL 

ADVAN 

AD10 

AD2 

AGAIN 

BAD1 

3AD2 

3AD5 

BITS 

BR 

3YPAS 

CERRS 

CKDR 

CNT 

CONS . .... 

CONV 

CWD1 

CWD2 

DATA 

EMSG 

ENDOP 

CRB1T 

ERROR 

FERRS 

FIRST 

FLAGS 

FLGER 

50 

HALT 

HEX 

H0010 

HU200 

ILSU3 

1NIT 

INT3 

INT* 

LP1 

LP3 

MODE 

HSG 

MSGO 

MSG1 

MSG10 

MSG11 

MSG12 

MSG13 

MSG14 

HSG15 

MSG16 

MSG17 

MSG18 



0001 HRS 



CROSS-REFERENCE 



VALUE 

02E6 

0366 
0362 
02A4 
09E2 
09E3 
09E4 
0456 
09DO 
044C 
09D7 
0274 
0574 
0221 
0486 

0523 
053B 
09CE 
03E2 
04C8 
0475 
0413 
09D6 
09E1 
046E 
0380 
02D9 
09C2 
09AA 
09DD 
090E 
09E0 
023C 
04B7 
04CD 
0218 
0295 
09D2 
0553 
0595 
071F 
0813 
081F 
0824 
0825 
0826 
0827 
0828 
0829 
0849 



REL DEFN 
00192 



REFERENCES 
























































00267 
00264 
00143 
00863 
00864 
00865 
00429 
00645 
00420 
00852 
00103 
00699 
00046 
00472 

00613 
00637 
00843 
00347 
00526 
00456 
00387 
00851 
00862 
00451 
00295 
00179 
00829 
00815 
00858 
00859 
00861 
00060 
00515 
00530 
00036 
00124 
00847 
00666 
00737 
00760 
00777 
00778 
00779 
00780 
00781 
00782 
0078,3 
00784 
00786 



00202 
00233 
00261 
00262 
00198 
00173 
00176 
00238 
00308 
00021 
00425 
00057 
00095 
00497 
00538 
00049 
00482 
00171 
00124 
00035 
00338 
00520 
00453 
00371 
00054 
00366 
00330 
00178 
00358 
00091 
00432 
00267 
00185 
00146 
00025 
00027 
00029 
00039 
00129 
00073 
00490 
00666 
00667 
00676 
00677 
00678 
00679 
00680 
00681 
00682 
00683 
00684 



00203tB 00204.B 00205,8 00206. B 00207*8 00208.B 00209, B 00210, B 00214. B 00217. B 
00235. B 00240. B 00241. B 00242. B 00246. B 00253. B 00258. B 00279, B 00284. B 00356. B 



00263. B 00266. B 

00213.B 00230. B 00272.8 00275. B 00283. B 

00177, R 00327, R . 

00332. R 

00337, R 00346, H 

00313, B 00319, B 00325*8 00441. B 00446. B 

00023.R 

00064.M 00394.M 

00114. B 00289, B 



00052, B 00055, B 00058, B 00303, B 00341, B 00344,8 00399*8 00405, B 00409, B 00413.B 

00483, B 

00316, R 

00127.M 00174,R 00322, R 



00063, H 00298, H 

00390, R 00393, M 

00335, B 00463, B 00468. B 
00239, B 



00434. R 00477, R 

00260, R 

00184, R 00187, M 00518, H 00523, R 

00042, B 

00528, B 

00540, B 



00083, R 00107»R 00119, R 
00492. R 
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SYMBOL 

MSG19 

54SG2 

1SG20 

MSG21 

1SG22 

MSG23 

MSG24 

MSG25 

MSG26 

MSG27 

KSG28 

1SG29 

MSG3 

MSG30 

MSG31 

MSG32 

MSG4 

MSG5 

*fSG6 

MSG7 

MSG8 

MSG9 

MBIT 

NO 

MXBIT 

NXT 

OPR 

PASS 

PRGIN 

PROG 

RBUF 

RCQMP 

RDSW 

READY 

RECDS 

REG 

REGF 

RESP 

RESTO 

RETRY 

REW 

REUD 

RFLAG 

ROUTN 

RST 

RSTPR 

RTN 

RTNA 

RTNAO 

RTN8 

RTNC 



0001 HRS 



CROSS-REFERENCE 



VALUE REL DEFN 



0860 
0757 
087C 
08A2 
08BE 
08E4 
0900 
0914 
0924 
0930 
0935 
095C 
0766 
0974 
098C 
09A4 
0784 
07A4 
07C7 
07CD 
0800 
0806 
046B 
0428 
0483 
0405 
03EE 
09D4 
020B 
04C6 
1000 

03F8 
09CC 
09C4 
09DA 
0443 
03E5 
04AE 
04E3 
0905 
09E5 
025C 
090B 
050B 
09BE 
09C0 
0908 
0A2C 
04F3 
0A30 
0A35 


























































00788 
00764 
00790 
00793 
00795 
00798 
00800 
00802 
00803 
00804 
00805 
00808 
00765 
00810 
00812 
00814 
0Q767 
007S9 
00771 
00772 
00775 
00776 
00444 
00402 
00466 
00372 
00354 
00849 
00183 
00525 
00867 

00364 
00839 
00831 
00855 
00415 
00349 
00503 
00549 
00850 
00872 
00063 
00856 
00589 
00825 
00827 
00853 
0095* 
00565 
0*0 958 
00963 



REFERENCES 

00685, R """" 

00668.R 

00686, R 

00687»R 

00688, R 

00689»R 

00690»R 

00691, R 

00692, R 

00693, R 

00694, R 

00695, R 

00669, R 

00696, R 

00697, R 

00698, R 

00670, R 

00671, R 

00672, R 

00673, R 

00674, R 

00675, R 

00438, B 

00391, B 

00460,6 

00422, B 

00359, B 

00048, R 

00090, B 

00522,8 

00367, R 

01066, R 

00218, B 

00070, R 

00086, R 

00273, R 

00387, M 

00295, M 

00505, B 

00527, B 

00051, R 

00085, M 

00076,6 

00500, H 

00179, B 

00526, R ...-■•■.. .... 

00525, R 

00133, M 00158, R 00192, M 00193, R 00302, R 00315, R 00321, R 00352, R 00379, R 00398, R 00418, R 

00579, R 

00195, R 

00225, M 00576»R 

00577, R '■■" .•"■• :-'■ ' -"~ "~ ~~- 



00424,6 

00061, M 
00161, 8 



00285, M 
00164, B 



00167,6 00186, B 00188, B 



00376»M 00408, R00946,R 00960, R 00996, R01004»R 01011, R 01023, R 01041, R 01052, R 
00254,6 00280,6 00373, B 00381,6 



00234,6 
00354, R 

00281, R 
00388, M 
00296, H 

00537,6 
00062, M 
00831, R 
00097, B 
00503, R 



00247,6 
00420, R 



00389, M 
00297, M 

00539, B 
00155, H 



00533, M 



00404, R 00407, R 00411, R 



00554,6 



V!-.. 
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... CROSS- 


•REFERENCE 


. SYMBOL 


VALUE 


REL DEFN 


REFERENCES 


•1 RTND 


0A4D 





00987 


Q0578.R 


RTNE 


0A59 





00999 


00579»R 


RTNF 


0A61 





01007 


00580 »R 


RTNO 


09F0 





00894 


00134, R 00565. R 


RTN1 


09F7 





00901 


00566, R 


l RTN10 . 


0A68 





01014 


00581, R 


i RTN11 


OA60 





01019 


00582, R 


RTN12 


0A74 





01026 


00583, R 


RTN13 


0A81 





... 01039 


00243»R 00584»R 


RTN14 


0A86 





01044 


00249, N 00250, M 00255,1 


RTIU5 


0A90 





01055 


00586, R 


;.._ RTN16 ... 


0A97 





01062 


00276, R 00587«R 


i RTN17 


0A9E 





01069 


00588, R 


RTN2 


09F8 





00905 


00567, R 


RTN3 


09FF 





00909 


. 00568, R 


RTN4 


0A03 





00913 


00569, R 


RTN5 


0AO7 





00917 


00570, R 


RTN6 


OAOB 





00921 


00571, R 


RTN7 


OAOF 





00925 


00572, R 


RTN8 


0A15 





00931 


00573, R 


RTN9 


0A22 





00944 


00574, R 


RUTA 


030B 





00215 


00599, R 


RUTB 


0311 





00218 


00600, R 


RUTC 


0328 





00233 


00601, R 


RUTD 


032D 





00234 


00602, R 


RUTE 


0331 





00236 


00603, R 


, _. RUTF 


0339 





00240 


00604, R 


RUTO 


02F2 





00202 


00589,R 


RUT1 


02F4 





00203 


00590, R 


RUT10 


033B 





00241 


00605, R 


RUTH 


033D 





00242 


00606, R 


RUT12 


033F 





00243 


00607, R 


... RUT13 


0346 





00247 


00608, R 


RUT14 


0353 





00254 


00609, R 


RUT15 


0371 





00273 


00610, R 


RUT16 


0370 





00280 


00611, R 


RUT17 


0386 





00285 


00612, R 


RUT2 


02F6 





00204 


00591, R 


RUT3 


02F8 





00205 


00592, R 


RUT4 


02FA 





00206 


00593, R 


RUT5 


02FC 





00207 


00594, R 


RUT6 


02FE 





00208 


00595, R 


j RUT7 


0300 





00209 


00596, R 


RUT8 


0302 





00210 


00597, R 


RUT9 


0304 





00211 


00598, R 


SAVA 


04EE 





00557 


00543, M 00553tR 


SAVE 


040C 





00542 


00516, B 00531,8 00547, B 


SDUR 


09C8 





00835 


00532, R 


SELCT 


09EC ' 





00889 


00108, N 00109, R 00823, R 


SENSE 


0AA4 





01079 
04^55 


00088, R 00113, R 00144»M 


SET 


045F 





„ 00433,8 00495, H 


SETA 


0477 ■' 


"o " 


00457 


00455,8 O0496»H 



00268, H 00269, M 00585, R 



00145tH 00149, R 00153, R 00236, R 00340, R 00878, R 00900, R 01074, R 
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SYMBOL 

SETUP 

SILSW 
SNSE . ... 



SPACE 
START 
SWIT 
TMSG4 

TOP 
TU8E 
TWO . 
TYPE 



UNO 
VOT 
W.BUF 

WORDS 

WRITE 

XPORT 

XR1 

XR2 

XR3 



0001 HRS 



048E 
09C6 
OAAO 



09BA 
093C 
090F 
0258 
0200 
04D9 
09DC 
0496 



0450 
09CA 
2000 

0909 
04A7 
0903 
04FO 
04F1 
04F2 



CROSS-REFERENCE 



VALUE REL DEFN 



REFERENCES 



00478 
00833 
0._ 01072 



00816 
00823 
00860 
00077 
00021 
00539 
00857 
00489 



00434 
00837 
. 00866 



00854 
00499 
00848 
00559 
00560 
00561 



00494, M 
00517, R 
00892»R 
00962, R 
01068, R 
00454, R 
00110, M 
00071, R 
00074»B 
01080, R 
00536, B 
00248, R 
00041, B 
00304, B 
00397,8 
00431, B 
00491, H 
00036, H 
00976, R 
00216, H 
00507»B 
00094, M 
00544, H 
00545, M 
00546.M 



000 OVERFLOW SECTORS SPECIFIED 

000 OVERFLOW SECTORS REQUIRED 

173 SYMBOLS DEFINED 

NO ERRORCS) AND NO WARNING(S) 



00904*R 00908, R 00912, R 

00986, R 00998, R 01006, R 

00456, R 

00111, R 00135, M 00147, R 

00355.R 00421«R 00839, R 



00265, R 

00047, B 00050, B 00053,8 

00309, B 00314, B 00320fB 

00400, B 00401, B 00403, B 

00501, R 00502, M 

00369,R 00412, R 00867»R 

00979, R 00982»R 00989*R 

00227, M 00232, M 00245, H 



00916»R 00920»R 00924, R 00930, R 00943, R 00953, R 00957, R 
01013, R 01018*R 01025, R 01038, R 01043, R 01054, R 01061, R 



00196, M 



00056, B 00059*8 
00326, B 00331, B 
00406*8 00410, B 



00066, B 
00336, B 
00414, B 



00069, B 
00339,8 
00509,8 



00075, B 
00342, B 



00078,8 

00345, B 



00301*8 

00348,8 



00933* R 00936»R 00939*R 00949.R 00967, R 00970, R 00973, R 
01001»R 01016, R 01028*R 01031, R 01034»R 01047»R 01057«R 
00252»M 00271»M 00278*M 00365*R 00374, R 



00103, M 
00550, R 
00551, R 
00552, R 



00104, R 00106, H 00122, R 



FLAGGED IN ABOVE ASSEMBLY 
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